








259 K OF » MYSKBY 
BY !M HYlBBltWHl 


Spectrum 48K or 
Commodore 64 
(Turboload) A 


HT Full-colour booklet, 
pocked with cryptic 
W clues to help you a 
runravel the mystery— jk 
and win the £25,000 
reward 


Music and 
sound effects 
builtin 


/ High quality 
full-colour, static and 
moving graphics/ 




■ 5 complete Adventures, each with its own Arcade 
in one multi-load mega-program: "Eureka!" is the 
ultimate computer Epic. 

■ Epic in scale: "Eureka!” spans five eras of history! 
You battle against the dinosaurs, outwit Nero and 
his gladiators, join the Knights of the Rouna Table, 
escape from Colditz, ana finally into 1984 defeat the 
evil master of the Caribbean who is holding the world 
to ransom. 

■ Epic in sheer size — there's more than 250K 
for you to get yourself killed in. 


■ All 5 Adventures are linked — but you can choose to play them 
separately. And they all have REALTIME builtin. So if you don't think 
fast, you wind up as a pterodactyl's lunch, die of oveF-exertion in a Roman 
orgy, or just lose your mind... 

■ "Eureka!" is not just an Epic — not just an Adventure. At the start of each 
historical era, you face an Arcade Acfion rest, to decide your strength level for 
fhe Adventure to come. 

■ The better your score, the stronger and faster you'll be. 

■ And it'll keep you on your toes, with constantly-changing, static and moving 
graphics. Brilliant music and sound effects add to the excitement. 

■ As part of the "Eureka!" pack, you receive a full-colour illustrated 
booklet, containing cryptic riddles and mysterious illustrations. Using 
booklet and screen together , you steadily unravel the clues and build 
up a secret phone number piece by piece. 

■ If you're first to ring it, you save the world and collect the £25,000! 

■ Quite a packaged And to give everyone a fair chance, "Eureka!" will be 
released simultaneously worldwide on October 31 st, 1984. No packs will be 
available until that date. All orders received by mail or phone by 26th 
OCTOBER will be despatched by post on the 31 st right across the world. So 
order now, and be one of the first off the mark. 

THEN THE RACE IS ON!!! 


DEVISED BY 
IAN LIVINGSTONE 


The storylines for "Eureka!” are by Ian Livingstone, 
whose "Fighting Fantasy” books have sold over 
2,000,000 copies. He's dreamed up some rather 
nasty tricks and twists for you in this Epic, because 
he has also devised the cryptic clues and 
conundrums in the booklet that goes with the 
program. He's the one who knows fhe answers. 


Send your order now to: 

'Eureka!", FREEPOST, Dept 400, Mount Farm, Milton Keynes, MK1 1 HQ 
' To: "Eureka!", FREEPOST, Dept 400, Mount Farm, Milton Keynes, MK1 1HC 

i 


"Eureka!” was programmed by 
Andromeda teams led by 
Hungarians Donat Kiss and Andras 
Csdszar. It took the equivalent of 5 
YEARS to create, and the skills of 
4 graphic artists, 2 musicians 
and a professor of logic too. 

We told them to stretch the 
hardware's capabilities, and make 
sure you were kept awake for hours!! 
They've done it... 


Domark Ltd., 228 Munster Road, London SW6. Reg. No: 1804186 (England). 


Keynes, MK1 1 HQ 

8 Please send me "Eureka!’ packs, complete with cassette, full-colour 
booklet, instructions and rules, at £ 14.95 each PLUS 55p post & packing. If 
my order is received before 26 October 1984,1 will receive a free £ 7 
K voucher towards a Trojan light pen.Please allow 14 days delivery for orders 
received after 26 October. 

24 HOUR PHONE 
HOTLINE NUMBER 
01-4606000 
For Credit Card Orders 

I enclose payment by cheque/PO. payable to DOMARK LTD. 

OR Please charge my Credit Card VISA [j E3 ACCESS □ 

Card Number 


MY COMPUTER IS 

Ordered 

Total at £ 15.50 

COMMODORE 64 



SPECTRUM 48K 




TOTAL £ 



Expiry Date.. 


S The race for the £25,000 starts on 31 Oct 1984 and closes on 31 Dec 1985 
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Signature. 
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GOLD MAZE 
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FIRE CHIEF 
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PUZZLE SOLVER 
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JUNGLE TROUBLE 
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MINE STORM 
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MR SOCKET 

36 

JUMP BUGGY 

41 
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SOFT FOCUS 
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DRESS DESIGNER 

39 

MABEL’S REVENGE 

48 

NUMBER BLAST 

51 

GOVERNMENT 


GENERATOR 

53 


(n/iLrt 


BANNER 

22 

SPECTRUM 

SCRUMPER 

20 

3-D WALL 

21 


SPIDER SENTRIES 

42 

KING FISHER 

49 

SIDESHOW 

51 

SCAFFOLDING 

52 

CAROUSEL 

54 

BIRD WATCHER 

55 

FIGHT 

56 

HEAD FOR THE 


STARS 

57 


Instructions for graphics characters are printed in lower-case letters in our listings. They are enclosed by brackets and separated by colons to distinguish 
them and the brackets and colons should not be entered. 

Inverse characters are represented by the letter “i” and graphics characters by “g”. Thus an inverse W would be represented by “iw”, a graphics W by 
“gw”, and an inverse graphics W by “igw”. 

Spaces are represented by “sp” and inverse spaces by “isp”. Whenever any character is to be used more than once, the number of times it is to be used is 
shown before it, together with a multiplication sign. Thus “6*isp” means six inverse spaces and “(g4:4*i4:g3)” would be entered as a graphic four, followed 
by an inverse four repeated four times, followed by a graphics three. 

Where whole words are to be written in inverse letters they appear in the listings as lower-case letters. Letters to be entered in graphics mode on the 
Spectrum are underlined. 

Inverse characters may be entered on the ZX-81 by changing to graphics mode and then typing the appropriate characters and on the Spectrum by 
changing to inverse video and typing the appropriate letters. Graphics characters may be entered on the ZX-81 by changing to graphics mode and then 
pressing symbol shift while the appropriate characters are entered. On the Spectrum graphics characters may be obtained by changing to graphics mode and 
then pressing the appropriate character. User-defined graphics will appear as normal letters until the program has been RUN. 
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Why wait any 




The CHEETAH 32K RAMPACK 
simply plugs into the user port at 
the rear of your computer and 
increases the memory instantly to 48K. 

★ Fully compatible with all SINCLAIR 
accessories via rear edge connector 

★ NO NEEDTOOPENCOMPUTER AND 
INVALIDATE GUARANTEE 

★ Why send your computer away and wait 
weeks for upgrade 

★ Fully cased tested and guaranteed. 



only £39-95 

including VAT and P&R 


Now make your 
Spectrum 
and ZX-81 Talk 

Compatible with Interface I & 11 

The Cheetah "SWEET TALKER” just plugs into the back of the 
computer using the existing power supply. Based on an allophone 
system you can easily program any word sentence or phrase. Fully 
cased,tested guaranteed and compatible with all SINCLAIR 
accessories via rear edge connector. Complete with demonstration 
cassette and full instructions. tm mm 

No more lonely nights! 

Simply incredible at 

(Please quote when ordering whether Spectrum or ZX81 owner) 


16K RAM Pack for ZX-81 
64K RAM Pack for ZX-81 


£19.75 
£44.75 

Prices include VAT, postage & packing. Delivery normally 14 days. Export orders at no extra cost. 

Dealer enquiries welcome 

Cheetah, products available from branches of 

'*mmm WHSMITH $ Rumbelows 

and all good computer stores 




Marketing 


Cheetah Marketing Ltd, 24 Ray Street, 
London EC1R3DJ. Tel:01 833 4909. 
Telex: 8954958. 
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x,y: 

a,b: 

g: 

d 5 p 3 : 

UDG’s 

ga: 

gb: 

go: 

gd: 


Current coords. 

Previous coords. 

Score 

duration/pitch (for BEEP) 


Gold nugget 
Fools gold 
YOU 

“WINDOW” 

SURROUND 
ge-gl: “GOLDMAZE” 

gm,gn: “EXIT” 

Loop counters: a 

How it works 

The module names suggest in the 
program summary have been used to 
describe how the program works. These 



O NE hundredth of the maze is 
shown in the centre of the 
screen. The exit is not visible so 
you must work your way round the 
maze trying to escape. Gold bars are 
scattered around the maze and these 
should be collected to gain points. 
There is one setback which is that there 
are also several bars of fool’s gold which 
cannot be distinguished from the real 
gold bars. If you pick up a bar of fool’s 
gold it will reduce your score by five 
points. Ten points can be gained for 
each bar of gold collected. 

Gold Maze was written for the 48K 
Spectrum by 14 year old Tim Smith of 
Doveridge, Derbyshire who took six 
hours to write the program. 

Lines Function 

1- 520:Set-up Maze (SETUP) 

530- 700:Prog Control (MAIN) 

1000-1060:Get “gold” (GOLD) 

1500-1570:Get “Fools Gold” (FOOL) 
2000-2050:End game on “exit” 

(EXIT) 

2500-2560:End game on “abort” 
(ABORT) 

3000-3050:Play “win tune” (TUNE1) 
Play “lose tune” (TUNE2) 



Tim Smith. 

5000-5100:Print logo (LOGO) 
8000-8240:Print Instructions 
(INSTRUCT) 
9000-9070:Save routine 
9500-9510:Load routine 
Variables 

a$ (50,50): Maze graphics 


names have no programming signifi¬ 
cance. 

SETUP (Lines 1-520) 

Set up maze in array a$, clear screen, set 
colours call LOGO, call INSTRUCT. 
Set score to ZERO. Initialise coords x,y 
to start at middle of maze. 

LOGO (Lines 5000-5100) 

Repeat. Play “Rich Man”. Print title. 
Scan keyboard. Until Start Key. Re¬ 
turn. 

INSTRUCT (Line 8000-8240) 

Clear Screen. Print instructions. Clear 
screen. Clear screen. Print sample maze 
“window”. Clear screen. Print window 
surrounds and “black out” window. 
MAIN (Lines 530-700) 

Hold “old” x,y as a,b 
x = x + (Key = a) - (Key = q) 
y = y + (Key = m)-(Key = n) 

IF Key = 0 THEN call ABORT. IF a$ 
(x,y) = wall THEN re-set x,y to “old” 
values (a,b). Print 5*5 character maze 
window initially a$ (23-27,24-28) Print 
go (YOU at window centre). IF a$ 
( x >y) = gb (gold) THEN CALL GOLD. 
IF a$ (s,y) = go (fools gold) THEN 
CALL FOOL. IF a$ (x,y) = gm or gn 
(exit found) THEN CALL EXIT. Print 
Score. Jump to MAIN. 

GOLD (Lines 1000-1060) 

Print “GOLD” message (with BEEPS). 
Take nugget out of maze set 
a$(x,y) = “ Increase score. Erase 
“GOLD”. Return. 

FOOL (Lines 1500-1570) 

Print “FOOLS GOLD!” (with 
BEEPS). Take nugget out of maze. 
Reduce score by 5. Erase “FOOLS 
GOLD”. RETURN. 

EXIT (Lines 2000-2050) 

Clear Screen. Print exit message/score. 
Call TUNE1. Repeat. Scan keyboard. 
IF N pressed THEN stop until Y 


pressed RUN. 

ABORT (Lines 2500-2560) 

Clear screen. Print abort message/score. 
Call TUNE2. Repeat. Scan keyboard. 
IF N pressed THEN stop until Y 
pressed RUN. 

The main principle 

The author has cleverly arranged the 
program only to allow the player a 
“peep” at the maze through a 5 by 5 
character “window” (showing only 1% 
of total maze). 

The first view is of the section of the 
maze array a$ (x,y) with x from 23 to 27 
and y from 24 to 28. This view (and all 
subsequent views) is repeatedly printed 
by the loop around MAIN, until any of 
the control keys are pressed. Direction 
keys, in effect, shift the window (not 
you) by 1 character left/right or up/ 
down for each pass through the MAIN 
loop. 

Before the window can be shifted a 
check must be made to make sure that 
you are not in a wall (line 560). If you 
are, then previous coordinates (for cen¬ 
tral character of window, which is also 
where you are) are restored. Otherwise, 
the shift is made, followed by checks on 
gold etc. 

3 REM EFGHIJKL 

10 DIM At (50,50) 

20 LET a*(1>="<50*iq8>" 

30 LET At (2)="<50*ig8)" 

40 LET a*<3)=" <2*ig8) MN(ig8:3* 
sp; (igS) B(4»sp:8»igfl:sp) RRR(ig8: 

sp:2*ig8:3*sp:ig8:3*sp:ig8:10*sp 

- 

50 LET At (4)="(2*ig8:2*sp:ig8: 
sp:igB:sp;5»ig8:8»sp;ig8;sp;4»ig 

8;sp:2»ig8:sp:igB:sp:ig8:gp: 1 g6: 

sp:ig8:sp:8»ig8:sp:2»ig8)" 

60 LET a* (5) =" <2*i g8: sp) R ( ig8: 
sptiq8:sp:iq8:5»sp:6»iqB:sp:iq8: ~ 

6»sp:2»iqB:sp:ig8:sp:ig8:sp: i g8: 

sp:iq8:sp:iq8:6»sp:ig8:sp:2»igB) 

70 LET At(6)- n (2»iq8:2»sp:iq8: 
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sp:2*ig8:sp:2*iqB)" 

I PT s t hi \ t -Oi 


p; 2»iq5T l 

80 LET a»<7)=" (2»ig8) R(3»sp:6» 
g8:sp;ig8:3»sp:ig8;sp:3»ig8;sp:4 

*ig8;sp;2»ig8:sp:7»ig8:sp;ig8s sp 

;4*ig8:sp:ig8:sp;2*igB)" 

90 LET a*(8)="<7*igB:2*sp) R(sp 
; ig8;sp;iqB;sp;ig&;sp;igB;5»sp: i 
g8;2»sp;ig8;sp;2»ig8;sp;igB;3»sp 

; i g8; sp ; i g8: 3*sp; i g8) B (sp; i gB: sp 

;2»iq8)~ " 

100 LET a$(9)="(2*ig8:sp:ig8:sp 
;2»igB;sp;4*ig8;sp7ig8;sp;ig8;sp 

;8»igB;3»sp;ig6:2»sp;ig8;sp;5»ig 

8:sp:iq8:sp:3»igB;sp;4»ig8;sp; 2* 

i g8) " 

110 LET at (1O)="(2*ig8;sp;igB:2 
*sp;ig8:sp;igB;4»sp;ig8;sp; ig8; s 

p; ig8; sp; i gB; 4»sp ; 5»i g8; sp ; i gin's 

p;2»igB:2»sp:ig8:2»sp:ig8)B(2»sp 

:ig8:2*sp)A(3*sp:2*igB)" Z 

i 20 LET a* (11)= " ( 2*ig8:sp:2*ig8 
a spsigB) B (ig8;sp;4»ig8:sp;ig8: sp 

: l g8: sp :4*iq8: 3»sp; ig8: sp) Pi (sp; 3 

»ig8;sp;igB:sp;4»ig8;sp;9»ig8)" 

~ 1 30 LET at ( 12) = " < 2»i gB) R ( i q1§; 8» 

sp:ig8:2*sp:ig8:sp:igB:sp:igB:2* 

sp : 5»i gB) R (3»i gB) B (2»sp : i gB; sp : i 

g8:4*sp;ig8;sp;ig8:6»sp;2»ig8)" 

140 LET al(13) = "( 2»ig8;sp;xg8: s 

p:8»ig8:sp:2»ig8: sp^; i g8; sp ) R (sp ; 

2 »ig8:sp;ig8:3»sp:3»igB:sp:ig8;s 


p:4»iqB;sp;iq8;sp;iq87sp:4»iq B:s 

p: 2*i g8) " — 

“156 LfeY a$ ( 14 ) =" ( 2»iq8;sp;iq8 ; s 

PSigB;3»sp;igB;2»sp:iq8:sp;igB)B 

R(ig8:sp:4»ig8:sp:3»ig8:5»sp:ig8 

s sp:ig8;4»sp;ig8;5»sp;5»ig8)" 

160 LET a»<15)="( 2»ig8:sp:ig8:s 
p;ig8:spsig8: sp; ig8S b( 2»igB;sp;1 

gB) B(2»ig5;7»sp a 8»igB:sp;igB;sp; 

ig8;sp:6»ig8;4»sp;2»ig8) H 

170 LET at (16)="(2*ig8:sp:ig8:s 
p:ig8;sp;ig8;sp;ig¥;sp;igB;2»sp : 

igB) BR(7»igB: sp; ig8; 3»sp; ig8) B(3 

»sp;igB;sp;jg8;2»sp;igB;3»sp;igB 

; sp: 2»ig8: sp; 2»i gB ) 11 ~ 

io6 LET a$(17)="(2#ig8:3*sp:iq8 
;sp;ig8;3»sp;ig8;sp;3»ig8) R(ig8) 

B (!4»sp ; i q8; 3»sp; i qB; sp; i q8; sp ; 4» 

i g8;sp;2»ig8;sp;iq8;sp;iq8) B ( iq8 

: 4»sp;2»ig8)" 

196 LET a$ (18)=" (4*ig8: sp: i g8: s 
p; i g8; sp; 3»i g8; 3»sp~; 5»ig8:sp: ig8 

; sp a l gB; sp; gB; sp ; i gB: sp; i g8; 4 

♦sp;igB:2»sp;IgB:sp;3»ig8; sp;igB 

a sp; 3»i q8) 11 

*56o LET at (19)=" <4*igB:sp:ig8:s 
p;igB;sp;5»ig8;5»sp;ig8:sp;igB;2 

* S P:igfi:4*sp:ig8:sp:ig8:sp:4*i g8 

;sp;2»ig8;3»sp)B ( sp;iq8;2»sp;2» i 

qB) " 

210 LET at (20)="(2*ig8:sp:iq8:s 
p;igB;sp;ig8;5»sp;4»ig8:sp: 2«Tg8 

:sp:2»ig8;sp;ig8:sp:4»ig8:sp;ig8 

:2*sp)B(2*ig8:2*sp:ig8:sp:3*lg8: 


:sp:iqB:4*sp:2*iq8:sp:2*iq8:sp:i 

gB: sp) B(ig8:3*sp:3*ig8:sp:3*ig8: 

sp:ig8:3*sp:ig8:sp:5*iqB)" 

^30 LET at (22)="(2*ig8:9*sp:iq8 

:sp:ig8:sp:2*ig8)R(4*igB;2*sp:2* 

igB:sp:3*ig8:3*sp:ig8:sp:ig8:sp: 

lg8:sp:3*ig&:sp:igB:4*sp:2*iqB)" 

240 LET at (23)="(3*ig8:sp:3*ig8 

:sp:2*igB:sp:ig8:sp:igB:sp:igB: 2 

♦sp:lgB:4*sp:3*igB:sp:ig8:sp: 3*i 

gB:sp:ig8:sp:lgB:sp:ig8:sp:igB:3 

~#sp: iqB: sp: 2*ig&: sp: 2*iq8) " 

250 LET at (24)="(2*igB:2*sp:iq8 

asp:igB:sp:2*ig8:sp:igB:sp:ig8: s 

p:lgB:sp:2*iq8:sp:4*iqd:3*sp:iq^ 

:5*sp:ig8:sp:ig8:3*sp:ig8: sp: 3*i 

g_&:2*sp: iq8: sp: 2*iq8) " 

260 LET at (25)="(2*iq8:sp:2*iaB 

:sp:ig8:sp:ig8:2*sp:ig8:3*sp:iq8 

2*sp: iq8: sp: iq8: sp) B <4*sp: 5*iaB 

) R(ig8:sp:ig8:sp:3*ig8:3*sp:2*ig 

8:sp;igB:sp:2*igB)" 

270 LET a£(26)="(2*ig8:sp:2*ig8 

a sp:igB:Sp:9*ig8:sp:xg8:sp:iqB:s 

p:2*ig8:3*sp) B(sp:3*ig8) B(iq5*sp 

:ig8:sp:4*ig8:sp:3*ig8:sp:4*ig8) 

280 LET at (27)="(2*ig8:sp:2*iqB 

:10*sp:lg8:2*sp:ig8;4*sp:2*ig8:s 

p:2*ig8s 2*sp:2*ig8) B (i gB) B ( i q8: 2 

♦sp:ig8:3*sp:iq8:5*sps2*iq8)" 

290 LET at (28)="2*ig8:2*sp:10*i 

g8: sp: lg8) B (5*ig8:2*sp:iq8:sp:3* 

igB:2*sp: ig8)R (4*igB:sp:ig8:sp: 3 

♦igB:sp:3*ig8:sp:2*ig8)" 

300 LET at (29)="(2*iq8:sp:2*iq8 

:3*sp:ig8:sp:ig8:2*sp:iq8:sp:8*i 

gB:sp:ig8:sp:4*i g8)B (ig8:3*sp:iq 

8:2*sp:ig8:3*sp:ig8:sp)R(ig8:2*s 

p:2*ig8)" 

310 LET at (30)="(2*ig8:sp:ig8:2 

*sp:ig8:sp:ig8:sp:igB:sp:2*iq8:4 

♦sp) R(2*ig8:3*sp:ig8:sp:4*ig8:sp 

:S*ig8:sp:ig8:sp:2*ig8;sp:ig8:sp 

:4*iq8:sp:3*iq8)" 

320 LET a^(31)="(2*ig8:sp:ig8:s 

p:2*ig8:sp:ig8: sp: i gB: 3*sp)B (3*i 

g8:sp:ig8:2*sp:ig8:sp:ig8:sp:iq8 

: i*sp:ig8:3*sp:ig8:sp:iq8:2 *sd:8 

*i qB:sp:3»iq8)" 

330 LET at (32)="(2*ig8:sp:ig8:s 

p:2*ig8:sp:ig8:sp:4*ig8:sp:ig8:s 

p: igB) B(i gB:sp:2*igB:sp:igB:sp:i 

g8:sp:4*ig8:sp:ig8:sp:5*ig8:7*sp 

:3*igS) n 

340 LET at (33)="(2*ig8:3*sp:2*i 

g8: sp ) R (sp: i g8:2*sp:ig8:sp:ig8: 3 

♦sp: i qB:2*sp:iq8:sp:iq8:sp:iq8:4 

♦ sp:iq8:3*sp:5*igB:sp:ig8) R <3*iq 

8) R(3*iq8)" 

350 LET at (34)="(7*iq8:sp:4*ig8 


sp;iqB;sp;6»iqB;sp;iq8;sp;iq8;s 

p; 4»i gB; sp:5»igB: 3»sp : g 

8;sp;igB;sp;iq8;2»sp:2»ig8 )" ^ 

360 LET a$(35)="(2»ig8;ll»sp;ig 

2»sp) R (3»sp:ig8;sp;3»ig8;sp: ig 

8:4*sp:ig8:5*sp:ig8:3*sp:igB:sp: 

i g5)R(5»ig8 )" 

370 LET at (36)="(5*ig8:sp:8*ig8 
a spa 4»igBa spaig8a spaigB) B(ig8a sp 

:ig8:sp:4*ig8:sp:2*ig8)B(6*igB:s 

p; igB; 4»sp; 2»iggP 1 

380 LET at (37)="( 5»ig8;sp;ig8;3 
♦sp;igB;2»sp;igB:sp;2»igB;sp; i qB 

;sp;igB:3»sp;igB:sp;ig8;3»sp;iq8 

:2*sp:igB:2*sp:4*ig8:sp:ig8:sp:4 

390 LET a$(38)="( 2»ig8;4»sp;ig8 
:sp;igB;3»sp;2»ig8;sp;2»igB;sp:i 

gB;sp;ig8;sp;ig8;sp;ig8:sp;3»ig8 

;sp;igB;sp;6»igB;sp;ig8;sp;ig8:s 

p;iq8;4»sp;2»ig8)" 

400 LET at (39)="( 2»iq8;sp;2»iq8 
a 3*sp:ig8:sp:4*ig8:sp:ig8:4*sp:i 

g8; sp; l g8) B ( i gB; 3»sp; igB: sp ; Ig?; 

3»sp;ig8;3»sp;igB;spaig8a spaig8a 

sp;ig8;sp;5»ig8)" 

410 LET at (40)="(2*ig8:2*sp:8*i 
gBasp; ig8; spa ig8; sp; 10»ig8; sp;"Tg 

B:sp;2»ig8;3»s p:x g8:sp:ig8;5*sp; 
i g8) B (3»sp; 2»i~g8) 11 
420 LET at (41)="( 3»ig8:3»sp;ig8 
; sp:ig8;2»sp;ig8;sp;ig8:sp;4»ig8 

:7*sp:lgB:3»sp:6»ig8:sp;ig8:sp:8 

»ig8;sp;2»igB)" 

continued on page 8 
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A NEW IMPROVED 
ZX81 KEYBOARD AT THE SAME 
OLD PRICE. £9.95. 


There’s only one thing wrong with the 
ZX81. Its keyboard. 

Or rather its lack of one. 

Since it’s flat your fingers don’t feel as if 
there’s any response to the pressure put on 
the keys. 

_ L \ 

ZX81 KEYS FILESIXTY KEYS 

In other words, you’re not quite sure 
which keys you’ve pressed until the screen 
actually tells you. 

Our new, improved push button keyboard 
changes all that. 

It matches the ZX81 perfectly. And the 
keys give a real calculator-type feel. 

To set it up all you have to do is peel off the 
adhesive backing and stick it on top of the 
ZX81 touchpad. 

Because no tampering or soldering is 
involved the guarantee is not affected. And it 
will last for up to 3 x h million operations. 

Filesixty Ltd., 25 Chippenham Mews, London W9 2AN, Enj; 


But our keyboard doesn’t just come 
loaded with features. With it comes a separate 
overlay and a set of coloured stick-on labels to 
make game playing easier. 

It’s yours for the original price of £9.95. 

Whichever way you look at it, we think 
you’ll agree that it’s a keyboard that’s quite 
outstanding. 

Orders to Filesixty Ltd., FREEPOST, London W9 2BR. 

Cheques/PO made payable to Filesixty Ltd. 

Please send me_(qty.) Keyboards at £9.95 each 

(including VAT and P&P). 

Total £ 



I-Tel: 01-289 3059. Telex: 268 048 EXTLDN G 4087. 
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continued from page 6 
430 LET al(42)= M < 5»ig8:sp:igB:s 
p : l g8 : sp:2*ig8:3*sp) Es (4*sp : 5*i g8 


: 3»sp:3»igB:4»sp;ig8:sp:ig8:sp:i 

gB:3»sp:lq8:4*sp:2»ig8 )" 

440 LET At (43)="< 2»ig8)B(2»igB: 
sp:igB:sp:ig8:sp:4»iq8:sp:6»ig8: 

3»sp:6»ig8:2»sp:2»iq8:sp:ig8:sp: 

3*ig8:sp:ig8:sp:ig8:sp:5*ig8)" 
450 LET At (44) = " ( 2»igB: 2»sp: l gB 
: sp:lg8:B»sp:ig8:4»sp:igS:sp:ig8 
: sp:ig8) &BB(3»sp:2»ig8: B»sp : i gB 

sp:ig8:4»sp:2»ig8 )" 

460 LET a$(45)="( 3»igB:sp:igB:s 
p:10»ig8:sp:2»iq8:sp:iq8:sp:ig8: 


sp:5»igB:sp:2»ig8:2»sp:2»ig8:sp: 

3»ig8:sp:iqB:sp:7»iqB) " 

470 LET At (46)="( 2»ig8:4»sp:igB 
: 3»sp:lgB:3»sp:igB:3»sp:igB:3»sp 

: i g8:sp: i g8:3*sp:3*igB:2*sp:2*ig 
E$: 2*sp:ig8:3*sp:ig8:sp:ig8:4*sp: 

2»r g m 11 - 


480 LET a$(47)="(2*ig8:sp:4*ig8 
:sp:ig8:sp:ig8:sp: i g8:sp:igB:sp: 

ig8:sp:igB)R(3»ig8:sp:ig8:sp:ig8 

:sp:iq8:3»sp:2»ig£h sp)B (2»ig8:sp 

:3»igB:sp:ig8:sp:5»ig8)" 

490 LET At (48)="( 2»igB:6»sp:ig8 
: 3»sp:lgB:3»sp:ig8:sp:ig8:sp:ig8 

: sp ) R(3»sp:igB:3»sp:3»ig8:2»sp:2 

»iq8:2»sp:ig8:3»sp:ig8:3»sp) B (2» 


ig8) " 

50(*) LET At (49)=" (50*ig8) " 

510 LET a*(50)= "( 50»iq8) " 

512 BORDER 5: PAPER 2: INK 7: B 
RIGHT 1: CLS 

515 GQ SUB 5000: GO SUB 8000 
517 LET g=0 

520 LET x =25: LET y=26 
530 LET a=x: LET b=y 
540 LET x=x +(INKEYS*"a") — (INKEY 
*="q"> 

550 LET y=y+(INKEY$="m")-(INKEY 
*="n") 

555 IF INKEY*="0" THEN GO TO 2 
500 

560 IF a*(x,y)=" (iq8) " THEN LE 
T x =a: LET y=b 

590 PRINT PAPER O; INK 6;AT 6, 
14; At (x-2,y-2 TO y+2) 

600 PRINT PAPER O; INK 6;AT 7, 
14; A t (x-1,y-2 TO y+2) 

610 PRINT PAPER 0; INK 6;AT 8, 
14; At (x,y-2 TO y-l);AT 8,17;a*(x 
,y+l TO y+2) 

620 PRINT PAPER O; INK 6;AT 9, 
14; At (x +1, y-2 TO y+2) 

630 PRINT PAPER O? INK 6; AT 10 
,14;a$<x+2,y-2 TO y+2) 

640 PRINT PAPER O; INK 7;AT 8, 
16; "Jc: 1 

650 IF At (x ,y)= THEN GO SUB 

1000 

660 IF a*(x,y)="R^ THEN GO SUB 
1500 

670 IF At (x, y)= " M" OR a$(x,y)=" 
N." THEN GO TO 2000 
680 PRINT AT 16,11; PAPER 1; IN 
K 7;"SCORE = " IF g<100 AND 

g >—10 THEN PRINT PAPER 1; INK 
7; " M 

700 GO TO 530 

1000 PRINT INK 4; PAPER 0;AT 13 
,14; FLASH 1;"G0LD'" 

1005 FOR a-0 TO 20 
1010 BEEP .01,a 
1020 NEXT a 
1030 LET a*(x,y)=" " 

1040 LET g=g+10 
1050 PRINT AT 13,14;" 

1060 RETURN 

1500 PRINT PAPER 4; INK 0;AT 13 
,11; FLASH 1;"FOOLS GOLD!" 

1510 FOR a=20 TO O STEP -1 

1520 BEEP .01,a 

1530 NEXT a 

1540 LET At (x,y)=" " 

1550 LET g=g-5 

1560 PRINT AT 13,11;" 

1570 RETURN 

2000 CLS : PRINT PAPER 6; INK 1 
AT 5,7;"You Got Out Of The"; PA 
PER 4; INK 0;AT 7,12; " EFGH I<JKL " 
2010 PRINT PAPER 5; INK 1; AT 10 
7;"Your Score Was ";g 
2020 PRINT PAPER 1; INK 6;AT 15 
0; " Press *Y* To Play Again, 

Or N' To Stop The Program. 



2025 GO SUB 3000 
2030 IF INKEY*="y" THEN RUN 
2040 IF INKEY*="n" THEN STOP 
2050 GO TO 2030 

2500 CLS : PRINT PAPER 7; INK 1 
;AT 5,0;"You Didn't Reach The Ex 
it Of The" 

2510 PRINT PAPER 0; INK 4;AT 7, 
12; " EFGHIJKL " 

2520 PRINT PAPER 1; INK 5;AT 10 
,7;"Your Score Was ";g 
2530 PRINT PAPER 6; INK 1;AT 15 
,0;" Press 'Y' To Play Again, 
Or N' To Stop The Program. 

2535 GO SUB 3500 
2540 IF INKEY*="y" THEN RUN 
INKEYS="n" THEN STOP 


2550 IF 
2560 GO TO 


540 


FOR a=1 TO 22 


3000 RESTORE 3000: 

3010 READ d,p 
3020 BEEP d,p 
3030 NEXT a 

3040 DATA .25,O,.25,2,.25,4,.5,5 
,.75,O,.25,5,.25,4,.25,5,.5,7,.7 

5.2.. 25.2..25.4..25.5..25.9..25, 
7 , , 25,7 , , 25,5 , . 25,5, . 25,4 , . 25,2 , 
.25,4,1,0 

3050 RETURN 

3500 RESTORE 3500? FOR a=l TO 8 
3510 READ d,p 
3520 BEEP d,p 
3530 NEXT a 

3540 DATA .5,5,.15,0,.15,-1,.15, 

O,.5,1,1,O,.5,4,.75,5 

3550 RETURN 

5000 RESTORE 5000 

5010 FOR a=1 TO 37 

5020 READ d,p 

5030 BEEP d,p 

5040 PRINT AT 5,5; INK <RND*5)+3 
;" GOLD MAZE" 

5060 PRINT AT 15,7; INK 7; PAPER 
1;"Press S' To Start" 

5070 IF INKEY*="s" THEN RETURN 
5080 NEXT a 

5090 DATA .1,7,.1,5,.1,7,.1,5,.4 
,4,1,0,.1,4,.1,5,.1,7,.1,5,.1,7, 

. 1,^j,. 1,4,. 1,5,. 1,7,. 1,9,. 1«10,. 

1.9.. 1.10..1.9.1.5.7.1.12..5.11, 
.4,9,.1,7,.1,5,.1,4,.1,5,.4,7,.5 
,4,.1,8,.1,7,.1,5,.1,7,.4,8,.5,5 
,2,12 

5100 GO TO 5000 
8000 CLS 

8010 PRINT AT 3,8; INK 4; PAPER 
O; " EFGH I U K L " 

8030 PRINT AT 9,0;" You (C_) are 
in a big maze (morethan twice as 
big as the screen)and you have 
to get to the MN . collecting 
gold ( B) on the way. E 

ach bar of gold is worth TEN p 
oints, and if you pick up any f 


ools gold ( .fi), FIVE points 

will be deducted from your score. 

8040 PRINT AT 21,4; INK 1; PAPER 
7;"Press Any Key To Continue" 
8045 IF INKEY*<>"" THEN GO TO 8 
045 

8050 IF INKEYS="" THEN GO TO 80 
50 

8060 CLS 

8070 PR I tit- ATT 3,8; INK 4; PAPER 
0;" EFGHIJKL " 

8080 PRINT AT 6,0;" You can only 
see 1/100th of themaze on the s 
creen." 

8100 PRINT AT 18,0;" The Keys Wi 
11 Be Shown At The Bottom Of Th 
e Screen." 

8110 PRINT AT 21,4; INK 1; PAPER 
7;"Press Any Key To Continue" 
8115 IF INKEYSO"" THEN GO TO 8 
1 15 

8120 IF INKEY$="" THEN GO TO 81 
20 

8130 CLS 

8.40 PRINT AT 5,13;" DDDDDDD(iq7) 

8150 FOR a=6 TO 10: PRINT AT a,l 
3;"D (5»ig8)D(iq5) ": NEXT a 
8160 PRINT AT 11,13;" DDDDDDC(ig5 
>" 

8170 PRINT AT 12,13;"(g1:6*g3:g2 

) " -- 

8180 PRINT AT 2,9; INK 4; PAPER 
0;"E F G H I J K L" 

8190 PRINT AT 15,10;"DDDDDDDDDDD 
DD(ig7)" 

8200 PRINT AT 16,10;"D(11*sp>D(i 
g5) " 

8210 PRINT AT 17,10;"DDDDDDDDDDD 
DD(ig5 )" 

8220 PRINT AT 18,10;"(g1:12*g3:g 

_ 2 ) " - 

8230 PRINT AT 20,0;" KEYS: Q=U 
P, A=D0WN, N=LEFT, M=RIG 

HT, 0=GIVE UP 
8240 RETURN 

9000 REM To SAVE, GOTO 9000 
9005 CLS : PRINT AT 0,3;"Rutine 
For SAVING EFGHIJKL " 

9010 SAVE "goldmaze" LINE 9500 
9020 SAVE "goldgrafix"CODE USR " 
a",21*8 

9030 PRINT AT 5,2;"Rewind Tape F 
or VERIFICATION" 

9040 VERIFY "goldmaze" 

9050 VERIFY "goldgrafix"CODE 
9060 PRINT AT 10,14; FLASH 1;"OK 

9070 STOP 

9500 LOAD "goldgrafix"CODE USR " 
a" 

9510 RUN 
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DllEh 5H00T0LT 


A lien shootout was not 

chosen for its originality but for 
its good graphical content. The 
game also contains some impressive ef¬ 
fects. You are challenged to a duel by an 
alien on the planet Zyg. The first com¬ 
petitor to score five points wins the 
duel. 

Alien Shootout was written for the 
16K ZX-81 by David Ritchie, aged 14, 
of Stockbridge Village, Liverpool. 


„ i REMECRND^P? SAUE TAN LEN 
I? /PAUSE . 

_ 8 LET Mj."048 012 064 006 0S3 

043 035 186 354 118 032 003 816 

348 201 108 136 110 024 242 " 

3 FAST 

4 FOR M*16S14 TO 16533 

5 POKE M,UAL M$ i TO 3) 

6 LET Mi*M*(5 TO ) 

7 NEXT M 
“ SLOW 


2020 PRINT AT 21.0; 


PF=-5 H K 


THEN GOTO 2018 



8030 TP INKEYJb 11 11 1 
2040 FOR J=1 TO 40 
2050 RAND U5R 16514 
2060 NEXT J 
2070 FOR J«1 TO 100 
2080 NEXT J 
2000 CL5 

4000 PRINT^TAB 10;"SHOOTOUT";TAB 

40l6 PRINT YOU HAUE CRASHED 

ON PLANET ZYG.AN ALIEN CATCHES Y 
OU AND CHALLENGES YOU TO 

A DUEL." 

4020 PRINT "TUO MEN WILL BE DRAW 
N ON THE SCREEN.YOU ARE THE 0 

N ?o8 N H ai xolti[LiI H 8 N fl VSi N ^g8¥ 


.THE ALIEN DRAWS' 

THE SCREEN. 


4030 PRINT 
WILL COME ON 
4032 PRINT "AS SOON AS 

1"" COMES UP FIRE YOUR - COLT^ 

PRESSING ANY KEY.WHOEUER WI 

NS WILL WIN A POINT. THE FIRST T 
0 5 IS THE MillHliia . " 

4050 PRINT "PRESSAKEY" 

4052 PAUSE 4E4 

4053 CLS 

4060 PRINT "ENTER DIFFICULTY.... 

SIMPLE) ." ,1 - IMP05SI0l - EI - (S - 

4070 INPUT DIF 
4080 LET OIF»DI F»DIF 
5000 REM 


BUTTLE 
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5010 LET AL=0 

5020 LET PL1»B 

5499 REM 

5500 CLS 

5501 PRINT RT 0,11;" 

5505 PRINT RT 

5506 PRINT RT 
5510 PRINT RT 


'!iffcLT;RT 0,13.;RL 


*3 CO PE • 



5511 PRINT RT 
5520PR INT RT 21 ,0;" 

5530 FOR • JaT 
5540 NEXT J 

2,13; "THE" ; RT 4,12 
, ALIEN";AT to,12,"DRAWS" 

5560 LET J aINT (RND*30e)+l 
5570 FOR Z»1 TO J 

5575 IF INKEY $ < >"" THEN GOTO 590 

5530 NEXT Z 
5585 FRST 

5590 PRINT RT 18,11;" 

5595 SLOW 

5600 FOR T»1 TO (INT (RND*DIF) +2 

5601 IF INKEY$ < >"" THEN GOTO 570 

5603 NEXT T 

5604 GOSUB 9000 
5606 FOR J«1 TO 100 
5608 NEXT J 

5610 CLS 

5612 PRINT "ANOTHER POINT TO THE 
R LIE N " 

5614 LET RL=RL+1 

5616 IF RL > =5 THEN GOTO 9500 

5617 PRIJ3E 100 

5618 GOTO 5500 
5700 GOSUB 9000 
5710 FOR Jsl TO 100 
5720 NEXT J 

5730 PRINT "A POINT TO Y.OU - LUC 

KY EH. . . " 

5740 LET PL1=PL1+1 
5750 IF PLl> =5 THEN GOTO 9600 




S755 

5760 

5900 

5910 

5911 

5912 

5913 

5914 
5920 
5930 
9000 
3001 


LHEHT 


90 

9& 


16 

i« 

9j?20 

9030 

^140 

9050 

9060 

9070 

9030 

9500 

9505 

9506 


PAUSE 100 

GOTO 5500 
CLS 
PRINT 

FOR J = lfO 22 
RRND USR 16514 
NEXT U 
GOTO 5614 
LET RL*RL+1 
GOTO 5500 
FRST 

PRINT RT 11,10; 

*T_ I 


-, -L f 

PRINT RT 
PRINT RT 
PRINT RT 


. 0 ; 
14,10; 
15,10; 


r*;,:; 

l-.l I I Ml 
■PL J I I■ 


SLOU 

FOR J=1 TO 22 
RRND USR 16514 
NEXT J 
RETURN 
REM 

FOR J=0 TO 21 
PRINT RT J,0; 


ALIEN NON GAME 



HE GAME . UELL DONE 



0 

9600 REM 

9605 FOR 

9606 PRINT RT J . 0 ; "I 

9^^ NEXT U 

GeG^PRimrRTGjG,; 

9300FOR Jsl TO 22 

9310 RRND USR 16514 
9320 NEXT J 
9330 FOR J=1 TO 100 
9831 NEXT J 
9332 CLS 

9840 PRINT "ANOTHER GAME CY/N)” 
9350 IF INKEYS="Y" THEN CLS 
9851 IF INKEY$s"Y" THEN RUN 
||S2 IF INKEYS o"N" THEN GOTO 98 

print MHEBB 

9997 ST 0 P 

9998 SPUE "SHOOTOUH’' 

9999 RUN 
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BETA BASIC 1.8 

ENHANCED BASIC FOR SPECTRUM 48K 
FOR GRAPHICS - STRUCTURED PROGRAMMING 
- DATA HANDLING 

Release 1.8 is more powerful than ever! We don't have space to do this program 
justice — if you can't believe the ad, send us a large S.A.E. for further 
information. 

Features: Commands are single-entry keywords in graphics mode. Syntax is 
checked on entry. Fully compatible with Spectrum Basic. Microdrive compatible. 
Comprehensive manual. 

NOTE: Release 1.0 is still available for 16/48K Spectrum at £11.00. 


ALTER screens colours 
(general or specific) 

AUTO line numbering 

BREAK out of code loops 

CLOCK digital clock 

CURSOR CONTROL CODES allow 

strings to have complex shapes 

DEF KEY user definable keys 

DELETE a block of lines 

DO-LOOP structure 

DPOKE double poke 

EDfT specified line 

ELSE (used with IF. . THEN) 

EXIT leave DO-LOOP 


FILL enclosed area with specified ink 
or paper 

GET wait for keypress 
JOIN two program lines 
KEYIN a string 

KEYWORDS new keywords on/off 

LIST /LUST line TO line 

USED (used with GOTO. GOSUB) 

ON ERROR trap errors 
(with LINE. STAT and ERROR) 

PLOT a string (may contain cursor 
control codes) 

POKE a string 
POP Basic's stack 
PROC. DEF PROC. END PROC 
(for named procedures) 


RENUM versatile renumber 
ROLL all or part of screen in any 
direction by specified number of 
pixels, with or without attributes 
SCROLL like ROLL, but without wrap- 
round 

SORT arrays (very fast) 

SPLIT program lines 
r TRACE program execution 
UNTIL used with DO or LOOP 
USING used with PRINT 
WHILE used with DO or LOOP 
XOS. YOS move PLOT origin 
XRG. YRG change PLOT scale 


AND (bit-by-bit) 

BINE decimal to binary 
CHAR* number to 2 characters 
COSE fast cosine 
DEC hexadecimal to decimal 
JDPEEK double PEEK 
FILLED filled area 


FUNCTIONS 

HEX* decimal to hexadecimal 

INSTRING string search 

MEM free memory 

MEMORY* all of memory a* a string 

MOD modules 

NUMBER 2 characters to number 
OR (bit-by-bit) 


RNDM fast RNO 

SCRNt recognises user graphics 
SINE fast sine 
STRING* repeats strings 
TIME* current time 
USING* formats numbers 
XOR (bit-by-bit) 


Only £11.00 inclusive! (Upgrade price for Release 1.0 owners is £4.00. This 
includes a 12-page supplement to your manual. Please quote date of purchase. If 
you did not purchase from us, state supplier and return original cassette.) 


Please send me: 


Beta Basic, Release 1.8. Payment of £11.00 is enclosed. 

(or £11.50 for foreign orders). Cheques payable to BETASOFT. 


I don't believe itl Please send me full details of Beta Basic 1.8. I enclose a stamped 
addressed envelope. 


NAME: . . 
ADDRESS 


BETASOFT 

92 OXFORD ROAD, MOSELEY, 
BIRMINGHAM B13 9SQ. 


Nothing will affect you 

(and your school or college) 

than, 



We’ll send you 
a sample copy of 
EDUCATIONAL COMPUTING 
for just £1.00 — write to: 
Valerie Day 

EDUCATIONAL COMPUTING 
Durrant House 
8 Herbal Hill 
London EC1 5EJ 


0WWI1BI 

(Cheques made payable to EDUCATIONAL COMPUTING) 



THE QL MYSTERIES 

While the QL’s SuperBasic is a very good programming 
language, QDOS has a number of shortcomings. 
Fortunately the power of the machine can be simply 
increased by adding to the QL’s command set. We 
present nine routines, written in SuperBasic, designed 
to make full use of the QL’s undoubted potential. 


SPECTRUM TEXT PROCESSOR 


BASIC BUG HUNTING 

Whether you own a Spectrum, BBC micro, Dragon or 
one of the recently launched computers such as the 
Amstrad CPC464, in all probability you’ll be writing 
programs in BASIC. It’s the way of the world that most 
programs will not work first time and tracing the 
inevitable bugs can prove a frustrating and time- 
consuming process. Our article on bug hunting will help 
you track down bugs and get your programs up and 
running in record time. 


A simple, but versatile, program that allows the 
Spectrum to be used as a straightforward text 
processor. Full listing given in the October issue. 


PLUS all the latest news from the world of 
microcomputing in addition to the range of regular 
features. 


OCTOBER ISSUE ON SALE NOW PRICE 95p 

Available at all leading newsagents 


SINCLAIR PROGRAMS October 1984 


11 
























R ACE TRACK is a simulation of 
motor racing. Originally a pen¬ 
cil and paper game it has been 
adapted for the 16K ZX-81 by Jerome 
K. Laskowski of London SE6. 

You play against the computer, 
which always moves first, and you can 
choose to play up to five laps. Three 
basic rules govern the movement of cars 
and these must be followed to prevent 
crashing or losing the game. 

1. No two cars may occupy the same 
point at the same time. 

2. The point to which you wish to 
move and the line which connects 


persist and enter the move you will lose 
the race and fifty points will be deduct- 


^; ed - 


If at any time you need advice on the- 
best move to make, input “H”. 

Your car is the inverse X and the^%^^^/// 
computer drives the inverse 0. Points 
are awarded once both cars cross the 
'finish line, and are based on the win-" 
ning margin. If your score exceeds the 
world record, set at fifty points, you can 
change it at line 2 of the program. Alter 
the 1 in line 3390 to give more crash 
warnings if necessary. 


your current position to your antici¬ 
pated position must lie within the 
track borders. 

3. The length of your move must be 
one more than, one less than oi the 
same as the previous move for both 
horizontal and vertical moves. 

The moves should be entered as fol¬ 
lows; to move three squares right and 
one up you would input “31” and to 
move two squares right and one down 
you would input “2-1”. Invalid moves 
will be ignored by the computer and 
should an input mean a possible crash 
you will be given a warning. If you 
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(prcr 

( ,'Printout 


:S 

255 
270 
275 
250 
290 
295 
300 
310 
320 
3 30 
340 
260 
345 
350 
350 



LET UR=50 
RAND 0 
DIM B$i5,ll) 

DIM C$116) 

GQ5UB 400 
FAST 

DIM R$(13,32) 

__ DIM B(32) ' 

50 DIM C(2) 

^0 DIM D(2) 

LET H$=CHR$ 155 
DIM 1(2) 

DIM J (2) 

LPT M$=CHR$ 180+CHR$ 189 
LET P$=“OX” 

LET R$=CHR$ 27 
DIM T(32) 

LET TIME=0,5 
LET DIFF =0 
LET END =0 
LET CLOCK=0 
CL 5 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
FAST 
GOSUB 
SLOU 
GOSUB 


5 

10 

15 

20 

30 

40 

50 


50 

90 

100 

110 

120 

130 

140 

150 

150 

170 

150 

190 

210 

220 

230 

1940 


1300 INPUT D$ 


21,0;C$ 


500 

500 

ISP 

1200 

1400 

1500 


_ 2600 

IF. END>2 THEN GOTO 350 
IF END=2 THEN GOTO 250 
GOSUB 3000 

IF END=5 THEN GOTO 358 
GOSUB 3238 
GOSUB 2538 

IF END=3 OR END=2 THEN GOTO 


IF END =1 THEN 
GOSUB 4180 
GOTO 33 


GOTO 330 


403 REM ***RACE OPTIONS**# 

410 fkINT AT 5,7; " < < < RACE TRAC 

> > >“ 

428 LET B$(I)=“ 

430 FOR N =2 TO __ 

_ ^43 LgT g $ (N) - MB +CHR $ (N 415 

~458 NLEXTN 

458 PhINT AT 21,0;“INPUT NUMBER 
OF RACES RQRD (1-5) *' 

490 INPUT N 

588 PRINT AT 21,8;C$:C$ 

518 IF NOINT N OR N>5 OR N<1 T 
HEN GOTO 438 
528 LET RACES=N 
533 LET U$ =B $ (N) 

548 LET RACE=3 
553 LET PTS = 3. 

550 RETURN 

580 REM ***START SCREEN GEN#** 
518 FOR N = 1 TO 5 
528 LET H$=H$4H$ 

538 NEXT N 

543 FOR N =1 TO 13 

553 LET A$ (N) =H$ 

558 NEXT N 

555 LET A$ (13,22 TO 32 
673 LET A$(l,i TO 5) 

553 LET A $(1.27 TO 32) 

590 LET X =1 

LET Y=441NT (RND*10 41) 

III)=X 
1(2)=X 
J (1) = Y 
J (2) =Y 
. — —. Z =3 
740 LET PACE =RACE41 
758 LET M =3 

”=.£» r-==r-p| !?-=«••! 

300 REM'*"**BUILD TRACK*** 

318 FOR N=Y-Z TO Y'4Z 
328 LET A$(N,X) =R $ 

f-.j VT k \ 

548 IF B(X)=8 OR Y-Z<BiX) THEN 
LET B(X)=Y-Z 

553 IF Y4Z>TCX) THEN LET T(X)= 
4Z 

550 RETURN 

988 REM ***PLAC5 PLAYERS*** 

918 LET A $(J(1) ,1(1j ) =M$(1} 

LtT N=INT (RND*7-3) 

IF N =3 THEN GOTO 928 
LET U (2) =J (2) 4N 
lpT A $ (J (2) , I (2) ) =M $ (2) 

PET! IpN 

REM ***ROAD GENERATION*** 
LET N=M41NT (RND*3-1) 

IF N <1 OR N >5 THEN GOTO 



LET NX =X-AB5 

LET NY =Y-SGN 
IF NY>4 AND 


181 

INT ( (N-l.5) 73 
. (N - 3) 

NY<15 THEN GOTO 


LET N =3 
GOTO 1038 
LET X =NX 
LET Y =NY 
LET M=N 

Ltl Z = INT (RND*341) 

GOSUB 333 

IP XoRACE THEN GOTO 1168 
LET 1(1)=X 
LET Ji1)=Y 

IF X < 32 THEN GOTO 1318 
PET! iRN 

REM ***PRINT SCREEN*** 

PRINT “ 4Y " TAB 6.; “ < < < RACE 

.. > > > RACE " ; RACE 

1228 FOR N = 15 TO 1 STEP -1 
1238 PR INT A $ (N ) 

1248 NEXT N 

12a3 fkINT “-Y“;TAB 9;“TIME 3“:T 
AS 19;"X Y";TAB 33;“4X“ 

1258 PRINT TAB 9; “SPEEDS :i :M$il 
’ 3 8 PT5 “;PTS 

0 PHINT “NEWLINE TG START";TP 
a 17;M$(2), 0 0 UR=”;UR 

1293 SLOU 


1318 PRINT . 

1328 RETURN 
1433 REM ***STEER DIRECTION*** 
1418 LET P=1 

1428 PRINT AT 21,0;“COMPUTER MOU 

TM fl s f r 

1438 LET/ DIR =1 

1*35 4ET 5TP =8 

144jZLUL^C AU= (T (32 ) 46 (32) ) /2 

1453 CFT N =C(P) 41(P) 41 

1468 IF N <=32 THEN LET Ay =(T(N) 4 

B(N) ) /2 

1473 IF D(P)4J(P)>AU THEN LET DI 
R =-l 

1458 IF DlP)4J(P)=AU THEN LET ST 
R =1 

.1493 RETURN 

1588 REM ***TRY POSSIBLES*** 

1513*N50R K =C (P) 41 TO C (P) -1 STEP 
-1 

1523 IF K<8 OR K>6 THEN GOTO 155 
8 

1533 FOR L=D(P)4DIR TO DIP)-DIR 
STEP -DIR 

1535 IF K =C(P) 4l AND L=D(Pi 4DIR 
AND 5TR=1 THEN GOTO 1578 
1543 IF AB5 L >6 THEN GOTO 1573 
1550 GOSUB 1738 

1555 IF U =2 THEN LET END=END4l 

1560 if u < >i Then goto 1553 

1573 NEXT L 
1553 NEXT K 

1598 IF P=1 THEN GOTO 1523 

1530 LET X = 138 

1518 RETURN 

1628 GOSUB 3588 

1625 LET END=4 

1538 RETURN 

1650 LET X =K 

1653 LET Y=L 

1573 RETURN 

1708 REM ***STQPPING DISTANCE*** 
1718 LET y=8 

1728 IF K=8 AND L=8 THEN RETURN 
1730 LET SAUEI=I(R) 

1748 LET SAUEJ=J i p) 

1753 DIM 0(288.5) 

1753 LET Q(1,1) =1(p > 

1773 LET Q(1.2)=Jip) 

1758 LET 0(1.3)=K 
1793 LET 0(1=4)=L 
1583 LET POINT=B 
1518 LET FREE =1 
1528 GOSUB 1983 
1533 LET I(P)=SAUEI 
1543 LET U(P)=SAyEJ 
1553 RETURN 

1988 REM ***CASCADE CHECK*** 

1910 LET POINT =PQINT4l 

1928 IF POINT>288 THEN LET POINT 

1938 LET U=8 . 

1943. LET I ip) =Q (POINT = 1) 

19b3 LET J(P) =0(POINT = 2) 

I960 LET X=0(POINT.3)' 

1978 LET Y =0 (POINT '= 4) 

2958 lb J(P)<>8 THEN GOTO 2813 
1938 LET y=i 
2033 RETURN 

2013 IF X =3 AND Y =8 THEN RETURN 
2820 GOSUB 3503 
2833 IF y=1 THEN GOTO 1918 
2843 IF y =2 OR i X < 2 AND ABS Y <• 2 « 
THEN GOTO 2878 * ' 

2853 GOSUB 2188 
2053 GOTO 1913 

2070 IF y=2 AND POINT<>i THEN LE 
T U=0 

2353 RETURN 

2133 REM ***5TACK MOUES * * * 

2*1® LET O(POINT,1)=0(POINT=1) + X 

2 220 LET o(P0INT,2) =0(P0INT= 2) 4Y 

2l-3 If- X > ABS Y THEN GOTO 2288 

=148 GOSUB 2388 

2158 FOR X =SOT TO TOP 

=158 GOSUB 2500 

2178 NEXT X 

2150 RETURN 

2238 GOSUB 2488 

2213 FOR Y=BOT TO TOP 

2220 GOSUB 2538 

2238 NEXT Y 

2240 RETURN 

2300 HEM *J*M0UES: X < =hE5 

2310. i_ET BOT =8 

2328 LET TOP=3 

2338 If X =8 THEN GOTO 2360 

2548 LET BOT =X-i 

2358 LET TOP =X-1 

2368 If- ABS Y > =X41 THEN LET TOP = 
2373 IF ASS Y>=X42 THEN LET tno- 

ill fe™f- sGN <y+b - 5: ' 
itSl m X>RBS y *** 

2428 LET SOT =Y 
2438 LET TOP=Y 

T-Y-i IF RB5 Vr ~ 1} <sX THEN LET BO 
P=Y+i IF fiBS (Y+i)<=X THEN LET TQ 
2463 ""RETURN 

4**FILL stack*** 

LET hheE=FREE 41 
TP FRtE>280 THEN LET FREE=i 
=530 =_tT O iFREt ; l ‘i =0 i POINT 1 
2540 LET 0(FREE;2j«0iP0INf;a 
=553 i_ET U (FREE • 3) =x 
2b63 LET O (FREE'= 4 f =V 
2573 RETURN 

iffiJiSunsir 

fill LEr'^iixIx ^-, G0T0 2630 ■ 

2625 LET Y=CY-J(P) 

2630 PRINT RT 19-J(Pj=I(pj-i;pj ( 

2640 LET I(P)=I(P)+x 
= b53 i_ET J (P) =.J (P) + y 
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(prcr 

(printout 


2620 LET X =CX-1C P? 

2625 LET Y=CY-UCP? 

2530 PRINT PT 13-J(P) ,I CP? -1;P$i 
P? 

264-0 LET ICP?=ICP?+X 

2650 LET JCP? =J CP? +Y 

2660 IF U <>2 THEN GOTO 2700 

2570 LET I CP? =32 

2530 LET J CP? =F 

270.0- P RINT PT 19 - J C P ? , I C P ? -1; M $ C 
P? 

2710 IF CP=1 PND END = 1? OR CP =2 
PND END=2? THEN GOSUB 2300 
2720 LET CCP?=X 
2730 LET D CP ? =Y* 

274-0 RETURN 

2300 REH ***DISPLPY SPEEDS*** 
2305 PRINT PT 21,0;C$ 

2310 LET TIHE=TIHE+0.5 

2315 IF CLOCK=1 THEN LET TIME =TI 

HE+0.5 

2320 PRINT PT 19,14;INT TIME 
2325 IF CLOCK=0 THEN GOTO 2350 

2330 LET DIFF=DIFF+1_ 

2335 PRINT PT 20.0;‘ : 9BB DIFF 

2350 PRINT PT 13+P,19; :: 

2360 PRINT PT 19+P,19;X;TPS 21;Y 
2370 IF END>0 PND END<4 THEN LET 
CLOCK =1 
2330 RETURN 

2900 REM * * *UINNING DISPLPY*** 
2910 FOR N=1 TO 7 

2920 PRINT PT 19-JCP? ,I CP? -1;R$ 
2930 PRINT PT 19-J CP? ,I CP? -1;M$ C 
P? 

2340 NEXT N 

2945 IFENDol THEN GOTO 2370 
2350 LET Z$ = *'COMPUTER UINS" 

2955 G0SU3 4000 
2950 LET Z$=“KEEP HOMING 
2965 GOTO 2935 
2970 LET Z$=C$ 

2930 IF END=2 THEN LET Z*="YOUR 
CPR WINS 1 ' 

2935 GOSUB 4000 
2990 RETURN 

3000- REM * * *PRE - MO ME CHECK*** 
300.5 PRINT PT 21,0; * : PRE-MOME CHE 
CK" 

3010 LET P =2 

3020 FOR X=CCP?-1 TO CCP?+1 

3030 IF X<0 THEN GOTO 3030 

3040 FOR Y=DCP?-1 TO D CP? +1 

3050 GOSUB 3500 

3050 IF M < >I THEN RETURN 

3070 NEXT Y 

3030 NEXT X 

3030 PRINT PT 21.0; 'CONCEDE? - C 

Y/N? " 

3100 INPUT D$ 

3110 PRINT PT 21,0;C$ 

3120 IF D$="N" THEN RETURN 
3130 IF D$ <>“Y" THEN GOTO 3090 
3140 LET END=5 
3150 LET M =2 

3160 LET Z$="GPME CONCEDED" 

3170 GOSUB 4000 
3130 RETURN 


= D$ = "H 
4500 


21,0;C$ 

OR D$="HELP" THEN 
OR LEN D $ >3 THE 


L0 

5$="+" 
<$=D$ Cl? 

• $ =D$ C2? 
=N D $ =2 “ 


3200 REM ***PCCEPT HOME*** 

3205 LET U =0 

3210 PRINT PT 21,0;"INPUT HOME. 

"XY""" 

3220 INPUT D $ 

3230 PRINT PT 
3235 IF 
GOSUB 

3240 IF LEN D$<2 
N GOTO 3210 
3250 LET S3 
3260 LET Xg 
3270 LET Yg 
3230 IF LEN D$=2 THEN GOTO 3320 
3290 IF Y$ <>" + " PND Y$<>"-" THEN 
GOTO 3210 
3300 LET 5 $ =Y $ 

3310 LET Y $ =D$ C 3 ? 

3320 LET X =CODE X$-23 
3330 LET Y=CODE Y$-2S 
3340 IF Y >9 OR Y<0 OR X>9 OR X<0 
THEN GOTO 3210 

3350 IF 3$="-" THEN LET Y=Y*-1 
3360 IF PBS CX-C CP ? ? >1 OR PBS CY 
-D CP? ? >1 THEN GOTO 3450 
3370 GOSUB 3500 

3375 IF M =2 THEN LET END =END+2 
3330 IF MOl THEN RETURN 
3390 IF U=1 THEN GOTO 3430 
3400- LET Z$ = "CRPSH UARNING" 

3405 LET y=y+i 
3410 GOSUB 4000 
3420 GOTO 3210 
3430 GOSUB 3500 
3435 LET END=5 
3440 RETURN 
3450 LET Z$= 

GOSUB 

70 GOTO 3210 
3500 REM ***CRPSH*** 

3510 LET M =3 
3520 LET Rg 

3530 LET M$ CP ? =CHR $ 151 
3540 LET Z3 
3550 GOSUB 
3560 RETURN 

3600 REM * * * MPLIDPTE HOME*** 
3610- LET M=0 

3520 IF X=0. PND Y=0 THEN RETURN 
3630 LET NX =ICP ? +X 




3640 LET NY =J CP? +Y 

3650 IF NX>32 THEN GOTO 3700 

3660 IF NY-CBCNX? THEN GOTO 3730 

3570 IF NY>TCNX? THEN GOTO 3730 

3630 IF NX=IC3-PJ PND NY=JC3-P? 

THEN GOTO 3730 

3690 GOTO 3740 

3700 LET M =2 

3710 LET F=JCP? 

3720 GOTO 3740 

3730 GOSUB 3900 

3740 IF X <2 THEN RETURN 

3750 LET M=Y/X 

3760 LET C=NY-M*NX 

3770 FOR N =1 TO X-i 

3730 LET NX =1 CP? + N 

3790 LET NY=M*NX+C 

3300 IF NX>32 THEN RETURN 

3810 IF NX=32 THEN LET F = INT C NY 

*0,5? 

3320 IF NY-0,0001<BCNX?-1 THEN G 
OTO 3370 

3330 IF NY+0.0001>TCNX?+1 THEN G 

OTO 3370 

3340 NEXT N 

3350 RETURN 

3370 GOSUB 3900 

3330 RETURN 

3988 REM * * *INMPLID HOME*** 

3910 LET M=1 

3920 LET CX =NX 

3930 LET CY =INT CNY+ 0,5? 

3940 IF NY <1 THEN LET CY = 1 
3950 IF NY>13 THEN LET CY=1S 

-~:Q = DFTi 

4000 REM ***FLPSH MESSPGE*** 

4010 FOR N=i TO 10 
4020 PRINT PT 21:0;C$ 

4030 PRINT PT 21 : O;Z$ 


40-40 NEXT N 
4050 RETURN 

4100 REM * * * C P LCULPTE POINTS*** 
4110. IF END =3 THEN LET GPIN = 10*D 
IFF*SGN C1.5-P? 

4115 IF END=4 THEN LET GRIN=20 
4120 IF END=5 THEN LET GPIN=-50 
4125 IF GPIN>=0 THEN PRINT PT 20 
,O;"GPIN ";GPIN ■ 

4130 IF GPIN < 0 THEN PRINT PT 20-. 
0:"LOSE ";PBS GPIN 
4135 LET PTS =PTS+GPIN 
4140 PRINT PT 20=24; "PTS "' : p 

T 20,28;PTS 

4150 Ir RPCE =RPCES THEN GOTO 419 
0 

4160 PRINT PT 21=0;"NEULINE FOR 
NEXT" 

4170 INPUT D$ 

4130 RETURN 

4190 LET Z$ = "GPME OMER" 

4195 GOSUB 4000 

4200. 16 PTS < =UR THEN PRINT PT 21 
0;"UR UNCHANGED" 

4210 IF PTS > UR THEN PRINT PT.2i = 
0;"UR BEPTEN" 

4220 STOP 

4500 REM ***HELP PLPYER*** 

4505 FPST 
4510 GOSUB 1430 
4520 GOSUB 1500 
4525 SLOW 

4530 IF X<100 THEN GOTO 4560 
4540 LET Z$=“NO MPLID HOME" 

4550 GOTO 4570 

4560 LET Z$=”BEST HOME: "+STR$ X 
+STR$ Y 

4570 GOSUB 4000 
4530 RETURN 
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On 


ZX-81 OWNERS 


AT LAST 

THE PROGRAM YOU’VE 
BEEN WAITING FOR! 


Rocket 

Man 


with 

Hi-Res Graphics 
on standard ZX-8116K 

Actual ZX-81 Screen Display! 



1. Diamonds 

2. Sea 

3. Platforms 

4. Ladders 


5. Fuel Cans 

6. Rocket 

7. Vulture 

8. Leg of Lamb 


9. Player 

10. Bubloid 

11. Fuel Gauge 

12. Men Remaining 




Get rich quick by collecting Diamonds that are 
simply lying there waiting for you! 

Oh... I forgot to mention that there are one or 
two problems! There is an expanse of Shark 
infested water between you and the Diamonds and a 
strange breed of Bubble that seems hell bent on 
getting you in it! Somehow you must cross it.... 

You have a Rocket Pac to help you (a Vulture on 
higher levels) but you must rush around the platforms 
and ladders collecting cans of fuel (legs of lamb with the 
Vulture) and cursing that weird Bubble. Once you have 
enough fuel then it’s Chocks Away! 

Oh... but don’t run out of fuel on the way - otherwise it’s 
.... SPLASH! 


The aim is to collect all the 
diamonds from the far left hand 
side of the screen, whilst avoiding 
the rampant Bubloid. These 
emerge from the sea and are hell¬ 
bent on returning to their watery 
habitat with you in tow. Sooner or 
later you are going to end up in the 
drink - The idea is to make it later! 

By belting round the system of 
platforms and ladders, cleverly 
avoiding the Bubloid, you collect 
the fuel cans which appear in 
random positions, until you 
consider that your fuel gauge 
indicates sufficient in the tank. 

Now you can go and collect your 
rocket. With the rocket-pack 
strapped to your back you can fly 
across the expanse of sea to 
collect the diamonds... but 
don’t run out of fuel or your 
rocket-pack will simply 
disappear and you will 
wind up in the drink! 


There are six stages with six 
different platform layouts. On 
stages 1-3 the Bubloid, which 
floats in front of the platforms 
with uncanny ease, gets an ever 
increasing ability to home in on 
your position, making the task of 
staying alive more demanding 
with each stage. On stages 4-6 
you once again start with the 
easiest Bubloid (which is a blessed 
relief!) but the fuel cans are 
replaced by legs of lamb which 
you must collect to feed your 
vulture, and once it has enough 
energy (or you think it has!) you 
must flap across the water on its 
back to collect the diamonds. 

Extra men are awarded for 
every 10,000 points - but Of T LY 
once you have collected all the 
diamonds and so completed each 
particular stage. 

GOOD LUCK! 


Available from all good computer shops 
or send cheque/P.O. for £5.95 (inc P&P) to: 

Software Farm, FREEPOST (no stamp required) 

(BS3658) , BS8 2YY Deptsp 

Software Farm, 155 Whiteladies Road, Clifton, Bristol BS8 2RF. 
Telephone (0272) 731411 Telex 444742 AFMADV G 
























S AVE the children from the fire 
before the flames become too 
fierce. The children will appear at 
|j the windows of the tower and you must 
race up and down the fire engine ladder 
to reach them. Once you have lost your 
three lives the building will crumble. 

Fire Chief was written for the 16K 
Spectrum by Peter Glancy, aged 15, of 
Liberton, Edinburgh. 


1 GO SUB 6000 

5 LET sc=0: LET 1=3: LET x = 15 
: LET y=9 

6 FLASH O: BRIGHT O 

10 LET j=9: LET h=3 

11 LET a=0: LET b=0: LET c=0 
20 FOR k=l TO 12: FOR n=0 TO 7 

: READ a: POKE USR <CHR$ (143+k) 
>+n,a: NEXT n: NEXT k 

25 DATA 8,28,28,62,28,60,28,14 
O 

26 DATA 252,28,28,54,54,55,55, 
119 

27 DATA 68,76,84,100,68,76,84, 
100 

28 DATA 0,36,20,75,126,126,254 
,254 

29 DATA 0,0,16,8,12,44,60,60 

30 DATA 0,0,0,0,127,127,255,0 

31 DATA 0,0,0,0,248,252,6,3 

32 DATA 231,231,195,195,129,19 
5,195,195 

33 DATA 0,0,0,0,0,4,46,126 

34 DATA 0,0,0,16,60,12,12,28 

35 DATA 0,0,0,0,3,115,126,124 

36 DATA 126,126,0,0,0,0,0,0 
40 LET k=15 

50 BORDER 7: PAPER 5: INK 4: C 
LS 

51 PRINT AT 17,0;"< 160»iq8) " 

52 INK 2: PAPER O: FOR n=2 TO 

18 STEP 2: PRINT AT n,1;" u 

NEXT n 

53 INK 0: PAPER 6 : FOR n=3 TO 

17 STEP 2: PRINT AT n,1;"<ig 8 : H: 
ig 8 : H: ig 8 : H: iq 8 ) ": NEXT n ^ 

54 PRINT AT 19,1;"<4*ig8:sp:2* 
ig 8 ) " 

55 INK 7: PRINT AT 3,15;"<4*iq 
§>";AT 4,14;» <6»iq8) "; AT 5,17;"( 
2 »iq 8 ) ” 

56 PRINT AT 4,23;"<2*ig8>";AT 
5,21; " ( 7»iq8) " ; AT 6,22 ; 77 <4*ig8) H 

60 INK 2: PRINT AT 17,9;"<6*ig 
_B)";AT 18,9; " ( 6 *ig 8 _) " ; AT 19,9T 7r T 
8 »ig 8 )"; PAPER 0;AT 20,9;"<2*ig 8 
:g3:3»iq 8 :g3;ig 8 )"; PAPER 4; INK 

0;AT 21,11;"(g3)";AT 21,15;"(g3 
> " 

61 PRINT ; PAPER 2; INK 6 ;AT 1 
8,10;"FIRE" 

62 PAPER 4: INK 0: PRINT AT 17 
,15;"(g6)";AT 18,16;"( 96 )" 

63 PRINT ; PAPER 2; INK 0;AT 1 
7,9;"< ig4) " 

65 PAPER 5: FOR n=2 TO 16: PRI 
NT AT n,9;"C_": NEXT n 

66 NEXT n 

99 GO SUB 500 

100 PRINT ; INK 7;AT x,y;'\R";AT 


x + 1 ,y; "J3" 

101 BEEP .001,20 

102 IF 1=0 THEN GO SUB 1999 

150 IF a=0 THEN GO SUB 600 

151 IF b=0 THEN GO SUB 610 

152 IF c =0 THEN GO SUB 620 

200 IF a>0 THEN LET a=a+l 

201 IF b>0 THEN LET b=b + l 

202 IF c >0 THEN LET c=c+l 

220 IF a =8 THEN LET q=3: GO SU 
B 700 

221 IF a=16 THEN LET q=3: GO S 
UB 710 

222 IF a=21 THEN LET q=3: GO S 
UB 800 

230 IF b=4 THEN LET q=9: GO SU 
B 700 

231 IF b=10 THEN LET q=9: GO S 
UB 710 

232 IF b=13 THEN LET q=9: GO S 
UB 800 

240 IF c =8 THEN LET q=15: GO S 
UB 700 

241 IF c=16 THEN LET q=15: GO 
SUB 710 

242 IF c=21 THEN LET q=15: GO 
SUB 800 

300 IF sc>200 THEN LET z=.004 

301 IF sc>400 THEN LET z=.003 

302 IF sc>600 THEN LET z=.002 

350 IF INKEY*="q" AND x >3 THEN 
LET x =x-1: PRINT ; INK 0;AT x+2 

,y; *^c" 

351 IF INkEY$="z" AND x<15 THEN 
LET x=x+l: PRINT ; INK 0;AT x- 

l,y; "C ^ 1 

360 IF a>0 AND x=h THEN LET q= 
3: GO SUB 1000 

370 IF x=j AND b>0 THEN LET q= 
9: GO SUB 1000 

380 IF x=k AND c>0 THEN LET q= 
15: GO SUB 1000 
400 GO TO 100 

500 PRINT ; PAPER 1; INK 7;AT 1 
0,20;"SCORE=";sc;AT 12,20;"LIVES 
=";1;AT 16,20 

501 RETURN 

600 IF RND>.95 THEN LET a=l: P 
RINT ; PAPER 0; INK 3;AT h^;"^" 

601 RETURN 

610 IF RNDC.05 THEN LET b=l: P 
RINT ; PAPER 0; INK 3;AT j,7;"K" 

611 RETURN — 

620 IF RND>.05 AND RND<.10 THEN 
LET c=l: PRINT ; PAPER 0; INK 

3; AT k,7;"Kj* 

621 RETURN 

700 PRINT ; INK 2; PAPER 6 ;AT q 
, 2; " EE_" ; INK 6 ; PAPER 0;AT q-1,2; 

11 r . H 


701 BEEP .01,20: RETURN 

710 PRINT ; INK 2; PAPER 6 ;AT q 
,4 ;"_e;'; INK 6 ; PAPER 0;AT q-1,4; 

" O" 

711 BEEP .01,20: RETURN 

800 PRINT ; INK 2; PAPER 6 ;AT q 
, 6 ;’IE"; INK 6 ; PAPER 0;AT q-1,6; 

" D" 

801 PRINT ; FLASH 1; BRIGHT 1; 
INK 2; PAPER 6 ;AT q^;"^" 

805 FOR n=0 TO 40: BEEP ,002,n: 
NEXT n 

806 LET 1=1-1 

807 PRINT ; INK O; PAPER 6 ;AT h 

, 1; " ( igB: H; i gB: H: i g 8 : H: i g 8 ) " ; IN 
K 2; PAPER 0;AT h-1,1;" l_" 

808 LET a=0: LET b=0: LET c=0 

809 PRINT ; INK O; PAPER 6 ;AT j 

, 1; " ( i g 8 : H: i g 8 : H;iq 8 : M: i g 8 > " ;. IN 
K 2; PAPER 0;AT j-1,1;" L" 

810 PRINT ; INK 0; PAPER 6 ;AT k 

, 1; " ( i g 8 : H: ig 8 : H: ig 8 r H: ig 8 ) "; IN 
K 2; PAPER O; AT k-1 , 1; " _U_" 

811 GO SUB 500 

812 RETURN 

1000 LET sc=sc+10 

1001 BEEP .01,20: BEEP .01,30: B 
EEP .01,24 

1002 PRINT ; INK 0; PAPER 6 ;AT q 

, 1; " ( i g 8 : H: i q 8 : H: i g 8 : H: i g 8 ) " ; IN 
K 2; PAPER 0;AT q-1,1;" L." 

1003 IF q=3 THEN LET a=0 

1004 IF q=9 THEN LET b=0 

1005 IF q=15 THEN LET c=0 

1006 GO SUB 500 

1007 RETURN 

1999 GO TO 2200 

2000 PAPER 5: INK 0: PRINT ; FLA 
SH 1; BRIGHT 1;AT 5,5;"YOU SCORE 
D ";sc;AT 7,7;"WELL DONE" 

2003 STOP 


2200 FOR n=2 TO 16: PRINT ; PAPE 

R 5; INK O; AT n . 1; " IJ IIJ 11 " ; AT 
-1,1;" BEEP .005,-10: N 

EXT n 

2201 GO TO 2000 

6000 PAPER 7: BORDER 7: INK 1: C 
LS 

6001 PRINT AT 3,0;" YOU ARE A F 

IREMAN,YOUR JOB IS TO SAVE A 

LL THE BABYS THAT HAVE BE 

EN LEFT BEHIND BEFORE THE F 

IRE REACHES THEM." 

6002 PRINT AT 10,3;"UP=(q)";AT 1 
1,3;"DOWN=(z>";AT 15,2;"YOU HAVE 

THREE LIVES THEN THE BUILDING 
WILL CRUMBLE" 

6003 PRINT ; INK 0;AT 17,17;"fV'; 
AT 18,17;" B 1 '; INK 5; AT 17,15; "FG 


6004 PAUSE 0: RETURN 
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SECOND PRIZE: 


FIVE SECOND PRIZE WINNERS 
WILL WIN A DK’TRONICS LIGHT PEN 
AND KEYBOARD 


mmu 


mamma 


THIRD PRIZE: TWO THIRD PRIZE WINNERS WILL WIN 

A RAM QUICKSHOT JOYSTICK AND 
TURBO INTERFACE 


RUNNERS-UP: One hundred runners-up will win a Spectrum 

game from one of ten top companies. Software 
from MICROMEGA, ULTIMATE, QUICKSIL VA, 
AUTOMATA, BUG-BYTE, C.C.S., DURELL, P.S.S., 
NEW GENERATION and ARCADE can be won. Now 
is your opportunity to win 'Deathchase’, 'Coden¬ 
ame Mat’ and 'Full Throttle’ from MICROMEGA, 
'Sabre Wulf’ from ULTIMATE and best-selling 
games from any one of the companies listed. 


• The Sinclair QL compute! needs little introduction The most powerful Sinclair computer yet, it uses the 
new language Superbasic and has 128K Ram. It comes complete with four major software packages, and is 
already supported by two magazines and several books. It is the machine that everybody is talking about this 
year; see how to win one below. 

• The dk’tronics light pen allows you to produce high-resolution pictures, using sixteen pre-defined instructions. 
Change paper, border, ink or colour. Draw circles or boxes, fill them in with colour, draw freehand, animate your 
characters and do much, much more. Meanwhile, the keyboard which third prize winners will also be sent will allow them 
to use their Spectrum more quickly and efficiently. 

• The Ram Quickshot Joystick combines all the features you could want in a joystick. Four suction cups hold it to your 
table, allowing you to play games with one hand only. Two fire buttons allow you to fire either with thumb or forefinger. 
What is more, with the addition of the Ram Turbo Interface, you can plug two joysticks into your Spectrum at once, for 
a multi-player game. The Turbo Interface also provides a variety of interfaces, allowing you to connect cartridge software 
or Microdrive to your Spectrum. 


HOW TO ENTER 

Listed below are six major features of the QL computer. Which of these are most essential in a new computer? Use your 
skill and judgement to arrange the six points in order of importance . For example, if you feel that a new keyboard is the 
most essential feature of any new computer, you could write C by number one on your entry form. 

A Large amount of memory D Advanced language 

B 32 bit processor E Built in program storage 

C Professional keyboard F Excellent software 

When you have arranged the six points in order of importance, complete the tie-breaking sentence: “I would like to win 
a Sinclair QL because . . 

All entries must be submitted on the cardboard entry form inserted in the magazine. They should arrive at “Sinclair Programs” not later than first 
post October 31st. Employees of EMAP Computer and Business Publications are not eligible to enter. The editor’s decision on all matters relating to the 
competition will be final. 
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Hj / Please rush me the following ^ 

.Microdrive compatible 

keyboard(s).£45.C 

Please add post and packing.$ 

,' I enclose cheque/PO/Cash for Total £_ ' 

or debit my Access/Barclaycard No. 


Signature 


Name 


/ Address 


SP/10/84 


THE FINAL TOUCH 


e’ve just added the final touch to our 
professional keyboard. 

This new Microdrive compatible 
keyboard offers more key functions than 
any other in its price range. And the stepped 
keys and space bar make it even easier to use 
Our keyboard, constructed from high density 
black ABS, will take your Spectrum into the 
professional league. 

it has 52 “stepped” keys plus space bar. A 
separate numeric key pad consisting of 12 red 
keys including a single entry ‘delete’ plus 
single entry ‘decimal point’, facilitate fast 


numeric data entry. 

The 15" x 9” x 3" case will accommodate 
your Spectrum and other addons like interface 1 
power supply etc. and forms an attractive 
self-contained unit. 

All connections, power, Mic, Ear, T.V., network 
RS232 and expansion port are accessible at 
the rear. 

A few minutes, a screwdriver and the simple 
instructions supplied are all you need to fit 
your Spectrum. 

All products are covered by a 

comprehensive guarantee. 


dtlronks 


DK Tronics Ltd., Unit 6, Shire Hill Industrial Estate, Saffron Walden, 
Essex CB11 3AQ. Telephone: (0799) 26350 (24 hrs) 5 lines 





















T hree into ik goes is a 

good example of memory con¬ 
servation, written for the ZX-81 
by M. J. Davies of Llandeilo, Dyfed. 
The program enables the user to fit 
three games into IK of memory so 
tightly that the mere addition of one 
character will prevent you from playing 
Mini-Hurkle. 

When the program is run the screen 
goes blank until you press 1, 2, or 3. 
Guess the number covers figures 
from 1 to 200. If your number is too 
high 1 is displayed, too low and -1 is 
displayed and if correct the number of 
goes taken is shown. When Reaction 
Tester is played, wait for the screen to 
turn white and press newline. Your 
score is then shown in seconds. The last 
game is Mini-Hurkle. Enter the X and 
Y co-ordinates and the computer will 
tell you the direction in which the 
hurkle lies. An “H” is displayed when 
the hurkle is found. 

THIS IS a very compact “3 in 1” 
program which has been very cleverly 
designed to fit into 1 K. As such, it is as 
much a lesson in memory conservation, 
as in programming. 

SUBROUTINES AND MAIN 
CODE 

2-7: Set up variables and program 

control (PROG) 

8-9: Random number subroutine 

(RAND) 

20-32: “Guess the number” Game 1 
(GAME1) 

40-53: “Reaction Tester” Game 2 
(GAME2) 

60-82: “Mini-Hurkle” Game 3 
(GAME3) 

VARIABLES 

Most of the variables have different uses 
to save memory. A list of the names will 
suffice here, as their uses will become 
apparent in “How it works”. 

Strings: A$ 

Numeric variables: N, C, V, R, X, Y, 
A, B 

HOW IT WORKS 

The “module” names suggested in the 
program summary are used for the pur¬ 
pose of describing how the program 
works. These names have no program¬ 
ming significance. 

Prog (Lines 2-7) 

Set N = 8, C= - 1 




Select SLOW mode 
Clear Screen 

IF KEY > 0 AND key < 4 THEN jump 
to GAME (Key) 

Jump to PROG 
Rand (Lines 8-9) 

R = INT (RND*V) i.e. any whole num¬ 
ber between 0 and V - 1 
Return 

Gamel (Lines 20-32) 

Set V = 200 
CALL RAND 


NEXT V Time ‘delay’ up with ‘Ran¬ 
dom’. 

Set R= 16436 (Systems variable for 
frame counter) 

Poke R, R + C with 255 
(i.e. set all 16 bits) 

Input A$ (waits for Player to react to 
end of black screen) 

Print ((255-PEEK 16436) +256* (255- 
PEEK 16437) /50 

(i.e. no. of frames sent to screen from 
start of count /50 frames per sec) 

Jump to PROG 

Game3 (Lines 60-62) 

Set A = 0, V = 4 
Call RAND 
Q = R (Hurkle X coord) 

Call RAND (R = Hurkle y coord) 

FOR A = 4 TO STEP -1 
Print A, “+ + + + +” 


V = R+ 1 (i.e. 1-200) 

Set R = 0 

Loop 

PRINT “?” 

INPUT B (Player’s guess) 

Clear Screen 

Print -1 (low), 0 (true) 

1 (high) 

R = R+1 (no. of goes) 

IF B not equal to V 
THEN jump to LOOP 
Print R 

Jump to PROG 


NEXT A 

Print “01234” (Grid references) 

Input X,Y (Player’s guess) 

Black out square at 4-Y, X + 1 
Set A$ = “” (null string) 

IF Y<R THEN A$ = “N” (North) 

IF Y>R THEN A$ = “S” (South) 

IF X<Q THEN A$ = A$ + “E” (East) 
IF X > Q THEN A$ = A$ + “W” (West) 
Print A$ 

IF Wrong guess 
THEN jump to Input X,Y 
Clear Screen 
Jump to PROG 


Game2 (Lines 40-53) 

Sert FAST mode 

Input A$ (waits for player to press any 
key to start) 

Set V = 2401 

Call RAND (R = 0 to 2400) 

FOR V=1 to R Random time 


General Notes 

From the memory conservation point of 
view, there are several devices used 
here. 

1) -COS PI and SIN PI for 1,0. These 
are good alternatives to the use of 
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PI/PI and PI/PI with an extra byte 
saved when representing zero. 

2) Good use is made of the numbers 
already held in ROM for CODES 
(0-255). e.g. CODE “COS” gives a 


saving of 2 bytes on VAL “200”. 

3) If the number is too large to use (2) 
above, then see if an operator can 
be used e.g. VAL“7**4” uses 1 
byte less than VAL“2401”. 


S hir 




Rf 

■ URL 


T C«-C0S PI 
4. SLQU 
5 CLS 

• -rS^^ F ^ ®“ AND INKEY* <"4. 

THEN GOTO URL INKEY$*CODE "s" 

7 RUN 

8 LET RsINT <RND*U) 

9 RETURN 

20 LET U-CGDE "COS " 

21 GOSUB N 

22 LET U»R+C 

23 LET R-SIN PI 
24. PRINT 

25 INPUT B 

26 CL5 

SZ P*J NT B ' " "> 1 B >U) - (B <U) 

28 LET RaR-fC 

29 IF BOU THEN GOTO CODE "/" 

30 PRINT R 

31 INPUT 

32 RUN 
4.0 FAST 

41 INPUT 

42 LET U .. 

43 GOSUB N 

44 FOR U»C TO 

45 NEXT U 

46 LET U»PEEK 

47 LET R=URL 

48 POKE R,U 

49 POKE R+C,U 

50 INPUT A« 

51 PRINT ilU-PEEK R) + iU+C) * <U- 
PEEK iR+O) ) /CODE "M" 

52 INPUT At 

53 RUN 

60 LET AbSIN 

61 LET UaURL 

62 GOSUB N 

63 LET Q»R 

64 GOSUB N 

65 FOR R»U TO A STEP -C 

66 PRINT Ri ••♦ + + + ♦•• 

67 NEXT R 

68 PRINT " 01234'' 

69 INPUT X 

70 INPUT Y 

71 LET At* — 

72 PRINT AT U-Y,X+C; n l" 

73 IF Y <R THEN LET Rt■“N" 

74 IF Y >R THEN LET A*s"S" 

75 IF X<0 THEN LET Rt*A*+"E 

76 IF X>0 THEN LET A * “ 

77 PRINT AT R,CODE ' 

73 IF X< >0 OR Y < >R 

AL "69" 

79 CLS 

80 PRINT "H" 

81 INPUT At 

82 RUN 


"7**4" 


INT PI 
’ 16436" 


PI 

"4" 


Ri«At + "U ,, i 
THEN S6 tO U 



B OUNCE on the trampoline at 
the bottom of the screen and 
catapult yourself into the apples. 
If you miss the trampoline on your 
descent the game will end. The birds 
that are dotted about the screen should 
be avoided as any contact will result in 
the loss of a life. 

Scrumper was written for the 16K 
Spectrum by Roy Farrington, aged 13, 
of Bolton, Greater Manchester. 


10 FOR y=-60 TO 60: BEEP .01,y 
: NEXT y 

20 PRINT AT 2,12;"SCRUMPER" 

30 GO SUB 530 
40 BORDER 6: PAPER 5 
50 LET e=0: LET f*0: LET a=10: 
LET b=15: LET p=0: LET t=0: LET 
s=0: LET 1=3 

60 INPUT "ENTER SPEED (1 TO 7) 

“;g 

70 IF g<1 OR g>7 THEN GO TO 1 
93 

80 LET g= <g/ (g*2 x ‘-g) *0. 2) 

90 PAUSE 100: CLS 
100 GO SUB 430 
110 LET c=3+ INT < RND *10) 

120 LET d=l + INT ( RND *31) 

130 PRINT INK 1; AT c,^"^ 

140 LET w=0 

150 PRINT INK 2; AT a,b;"B": B 
EEP g,4 

160 PRINT AT 0,0;"LIVES*";1 
170 IF a=21 THEN GO TO 490 
180 PRINT AT a, b;" " 

190 IF 1 <= 0 THEN GO TO 470 

200 IF INKEYS = "5" THEN LET b 
=b-l 

210 IF INKEYS = "S" THEN LET b 
=b + l 

220 LET a=a+1 

230 IF ATTR <a,b)=44 THEN BEE 
P .1,5: LET s=s+10 
240 IF ATTR <a,b)=41 THEN BEE 
P .1,1: LET 1=1-1 
250 I.F ATTR <a+l,b)=43 THEN G 
0 TO 270 
260 GO TO 150 

270 LET e=3+ INT ( RND *10) 

280 LET -f = 1 + INT < RND *30) 

290 PRINT INK 4; AT e, f ; "_C" 

300 PRINT INK 2; AT a,b;"JB": B 
EEP g,4 


310 IF a=19 THEN GO SUB 430 
320 PRINT AT a,b;" " 


330 

IF 

INKEY* ="5" THEN LET b 

=b-l: 

LET w=w+l.5 

340 

IF 

INKEYS ="" THEN LET w= 

w+1 



350 

IF 

INKEYS ="8" THEN LET b 

=b + l: 

LET w=w+l.5 

360 

LET 

a=a—1 

370 

IF 

ATTR (a,b)=44 THEN BEE 

P - If 

5: 

LET s=s+10 

380 

IF 

ATTR (a,b)=41 THEN BEE 

P .1, 

1: 

LET 1=1-1 


390 PRINT AT O,O;"LIVES=";1 
400 IF w >= 20 THEN GO TO 110 
410 IF 1 <= 0 THEN GO TO 470 

420 GO TO 300 

430 LET v= INT ( RND *24) 

440 PRINT AT 21,0;" 

450 PRINT INK 3; AT 21,v;"AAAA 
AAAA" 

460 RETURN 

470 PRINT AT 6,6;"THE BIRDS GO 
T YOU" 

480 GO TO 500 

490 PRINT AT 6,6;"YOU MISSED T 
HE TRAMPOLINE" 

500 FOR y=l TO 60: BEEP .01,y: 
NEXT y 

510 PRINT AT 8,6;"SCORE*";s 
520 GO TO 40 

530 FOR -f =0 TO 3: FOR g=0 TO 7: 
READ a: POKE USR CHR$ (144+f) 
+g,a: NEXT g: NEXT + 

540 DATA 255,129,66,36,24,24,36 

,66 

550 DATA 0,24,24,60,90,24,36,36 
560 DATA 0,24,48,126,126,118,60 

i O 

570 DATA 0,14,8,56,112,32,32,48 
580 RETURN 
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FTER entering the day’s weath- 
a forecast for the next day 
.will be given. The computer will 
prompt you to enter the relevant infor¬ 
mation; including the wind speed and 
humidity. The author claims that fore¬ 
casts given are as reliable as those given 
on the television. 

Weather Predictor was written for 
the IK ZX-81 by Wayne Phipps of 
Narborough, Leicester. 


NT 

90 
NT 
100 
110 
120 
130 


LET SN»7 
LET SU*0 
LET RR *5 
LET DU b2 

PRINT “UERTHER?(SN.SU,RR,DU 
INPUT U 

PRINT “WIND?(1 TO 10) M 
INPUT F 

PRINT "FQRCRST?-1*SUN >3 =DUL 
RRIN t 6«SNOU" 

INPUT B 

PRINT "I PREDICT: 11 
LET MsB*3 
LET 0a (M +F + W) 

IF 0<*13 THEN PRINT “SUN” 

IF 0 > s14 RND 0 < *18 THEN PRI 
DULL " 

IF 0 > s19 RND 0<«28 THEN PRI 
RRIN” 

IF 0 >28 THEN PRINT M SNOU M 
INPUT R $ 

CL5 

RUN 


9 BORDER 2: PAPER 4s INK Os C 
LS 

10 LET sc=0: LET 1=0: LET le=0 
s GO TO 1000 

20 LET 5=100s LET a=165 

21 PLOT 0,0s DRAW 0,175s PLOT 
255,0: DRAW 0,175 

25 PLOT s,as DRAW 5,5s IF INK 
EY* = "s" THEN PAUSE 4e4 

26 IF INKEY* = "p" AND s<255 
THEN LET s=s+l: BEEP .030,-10: 
LET j = j + 1: LET sc=sc+l: IF POIN 
T <s+l,a)=1 THEN CLS : PRINT A 
T 10,2;"HARD LUCK,YOU HIT ITS SI 
DE": BEEP 4,-20: CLS : GO TO 100 
0 

27 IF INKEYS = M o" THEN BEEP 
.030,-10: LET s=s-l: LET sc=sc+l 
: LET j-j+l; IF POINT <s-l,a>=l 

THEN CLS : PRINT AT 10,2;"HAR 
D LUCK,YOU HIT ITS SIDE": BEEP 4 
,-20: CLS : GO TO 1000 

28 IF INKEY* = "" AND a>14 THE 
N BEEP .015,-10: LET a=a-l: LET 

j=j+l: LET 5C=sc+l : IF * POINT ( 
s,a-1)=1 THEN CLS : PRINT AT 1 
0,0;"HARD LUCK YOU BANGED INTO A 
WALL": BEEP 4,-20: CLS : GO TO 
1000 

29 PLOT 0,18: DRAW 255,0 

30 IF a=20 THEN LET a=165: BE 
5P .10,-20: LET 1=1+1: PRINT AT 

0,0;"LEVEL ";1: PRINT AT 0,9;" 
SCORE ";sc: INPUT "HOW FAR ACROS 
S TO BUILD ?(your first wall was 
100 across) ";u: LET s=u 
999 GO TO 25 

1002 CLS : PRINT AT 0,0;" 

3D WALL ": FOR f=7 TO 0 S 

TEP -1: PRINT AT 12,0; INK f;"U 
SE S TO PAUSE" 

1003 PRINT AT 2,1; INK f;"BUILD 

THE WALL DOWN TO THE .BOTTOM 

WHERE YOU WILL BUILD A.NOTHER 

WALL AT THE TOP ..'USE KEYS 0- 

left P-right.BUT BEWARE! DO N 



OT BUMP INTO.OLD WALLS OR POLE 

S AS THIS"*"WILL CAUSE AN EXTERM 
INATION!!" 

1004 PRINT AT 15,4; INK f;"PREV 
IOUS SCORE ";sc: PRINT AT 17,4; 

INK f;"PREVIOUS LEVEL ";1: PRIN 
T AT 20,4; INK f;"PRESS A KEY T 
0 START" 

1005 NEXT f: PAUSE 4e4: CLS 

1006 FOR f =0 TO 100: LET h= RND 
*140: LET j= RND *245: BEEP .02, 
5: PLOT j,hs DRAW 10,10: NEXT f 

1007 LET 1=1: LET sc=0: GO TO 20 


B UILD A wall from the top of the 
screen to the bottom, taking care 
to avoid the poles and sides of 
the screen. When you reach the bottom 
you have to build another wall, only this 
time you are able to choose your start¬ 
ing point. 

3D Wall was written for the 16K 
Spectrum by Philip Laflin, aged 13 of 
Rotherham, S. Yorks. 
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C OLLECT the coconuts from the 
tree at the end of your garden by 
jumping over the gaps in the 
ground. Each time you move a new gap 
appears. The river runs below your 
garden so if you misjudge a gap you will 
fall into it. The keys to use are 5 and 0. 

Coconuts was written for the 16K 
ZX-81 by Neil Yates, aged 13, of 
Thame, Oxon. 


3 SRUE "COCgNUH" 

4 LET HI=500 

5 CLS 

10 LET S*0 

JLX8LL fa 


30 PRINT 


" WHICH SKILL LE'JEL 

31 PRINT 

32 PRINT M ( 1-5:1 IS HRRD 1 " 

35 INPUT SL 

36 IF 5L <1 OR SL >5 THEN GOTO 3 

37 CLS 

4.0 PRINT RT 0.5 
4.5 PRINT RT 14- . 

4-6 PRINT RT 13 . 


PRINT RT 10,0;" 
PRINT RT 9.0;" 

« NT RT 14. .26; "I 
" :RT 12,29; “■ 
Y = 25 

PRINT RT 15.0;F$ 
PRINT RT 14. ,Y 
IF INKEY $ = " 0" 


’ R ” 

THEN GOSUB 50 


'COCONUTS **" 


IF F$(Y+1)=" " THEN GOTO 20 

PRINT RT 14.,Y; " " 

IF INKEY$="S" THEN LET F$(Y 

IF INKEY $ = "5" THEN LET Y =Y- 

IF Y < =5 THEN GOTO 1000 
LET S=S+1 
GOTO 70 


500 LET F$ (Y + l) =" " 

510 PRINT RT 14-. Y;" " ; RT 13.Y-1 
;"R".;RT 13 , Y -1; ' 1 " ; RT i3.Y-2; ,, R" 
: RT 13 , Y-2.; " " ; RT 14,Y-3;"fl" 

520 LET Y =Y-3 
530 RETURN 
1000 FOR F = 10 TO 14 
1010 PRINT RT F.5:"0" 

1020 PRINT RT F , 5: " " 

1030 NEXT F 

1040 LET S=S+100 

1050 FOR F = 1 TO SL *3 

1060 LET LL = INT (RND*18) +7 

1070 LET F|(LL)="*" 

1060 NEXT F 

1035 LET L = INT (RND*1S) +7 
1086 LET F $ (L) =" " 

1090 LET F$ (24) ="**" 

1095 LET F % <26) = " m " 

1100 LET F* (25) 

1110 GOTO 37 
2000 FOR F*1 TO 15 
2005 PRINT RT 7,15; 

20 10 P RINT RT 6,14. 

; RT 3,14.; 

202FTRINT RT 6,14.; 

20SPfRfN+ R RT 8 ^ 1 l6 ; 

2030 NEXT F 
2040 CLS 
2050 PRINT 
RIUER RND 
2060 PRINT 
2070 PRINT 
2080 PRINT 
INTS." 

2090 PRINT 

2100 IF 3 >HI THEN LET HI=S 
2110 PRINT "THE HI-SCORE TODRY I 

2115 PRINT 
2120 PRINT 
Y RGRIN." 

2130 PRIJSE 4E4 
2140 GOTO 10 



.; RT 7,13 
.; RT 7,13 


YOU FELL INTO THE 


"WERE SUEPTED RURY. 


YOU SCORED 


: S; 


PO 


PRESS RNY KEY TO TR 



BANNER 

B ANNER is a character enlarger 
written for the IK ZX-81 with 
printer attached by David Black¬ 
burn of Smallfield, Surrey. 

It produces a banner from the string 
in line 20 and this is copied directly to 
the printer. The contents of this string 
may be changed to suit your require¬ 
ments. Each character is enlarged 1024 


UNIVERSE R 
THE ULTIMR 


10 DIM H(8) 

20 LET R$*"LIFE THE 
ND EVERYTHING: - 42 - 
TE RNSUER?" 

25 FOR R*1 TO LEN Rf 
30 LET E«7688+8*C0DE R$(R) 
35 FOR X»1 TO 8 
40 LET H(X)*PEEK (E-X) 

45 NEXT X 
50 LET C*128 
55 FOR Y■1 TO 8 
60 LET B$»"" 

65 FOR X»1 TO 8 


66 LET D»H(X) 

70 IF D > «C THEN LET St-St*"*** 
75 IF D > «C THEN LET H(X)»H(X)- 
" 80 IF D <C THEN LET 

85 NEXT X 

86 LET C«C#■5 

91 LPRINT B«,B$,6t,Bt, 

93 NEXT Y 
100 NEXT R 


22 


SINCLAIR PROGRAMS October 1984 







































































































































w 

P UZZLE SOLVER is a useful 
program to help find the solu¬ 
tions to puzzles in which you 
have to pick out words from amongst a 
group of letters in a grid. Input the 
measurements of the grid, any size up to 
a maximum of thirty letters across and 
twenty characters down, and then enter 
the letters on each row. The infor¬ 
mation is shown in the grid and you can 
then enter a word for the computer to 
find. The computer scans the grid and 
if a word cannot be found, asks you to 
try again. 

Written for the 48K Spectrum by 
Christopher Miles, aged 12, of Egham, 
Surrey. 


1 POKE 23658,8 

2 BORDER Is PAPER 1: INK 7: C 
LS 

3 PRINT AT 8,0; PAPER 6; INK 

0;" DO YOU WISH TO CONTINUE WIT 
H THE LAST INFORMATION ? 

4 PRINT PAPER O; INK 6;" 

OR 

5 PRINT PAPER 6; INK O;" 

STARt~ f>GA IN 
AND ENTER NEW LETTERS 

6 PRINT PAPER O; INK 6;" C t 
o CONTINUE/S to START AGAIN " 

7 INPUT c*: IF C*="C" THEN G 
0 TO 85 

9 REM SIZE OF GRID 
10 INPUT "AMOUNT OF LETTERS AC 
ROSS (1-30);x 

15 IF x >30 OR x<l THEN GO TO 

10 

20 INPUT "AMOUNT OF LETTERS DO 
WN (1-20)?";y 

21 IF y>20 OR y<1 THEN GO TO 

20 

25 REM ENTERING THE LETTERS 
30 DIM a*(y,x> 

40 FOR n=l TO y 

50 PRINT AT 10,5; PAPER 5; INK 
O;"LETTERS IN ROW ";n 
55 INPUT r* 

60 IF LEN r$<x THEN GO TO 50 
70 LET a$(n>=r*( TO x) 

80 NEXT n 

81 REM PRINT IN THE LETTERS 
85 CLS 

90 FOR n=l TO y 

100 PRINT AT n,16-INT (x/2); PA 
PER 6; INK 0;a*(n> 

110 NEXT n 

115 REM FIND WORD . 

116 REM PART 1 

121 INPUT PAPER 5; INK O;"ENTE 
R WORD ";w* 

122 IF LEN w$<2 THEN GO TO 121 

123 PRINT AT 21,0;" 

125 LET d=16-INT (LEN w*/2>s PR 
INT AT 21,d-1; PAPER 4; INK 0?" 

130 INK 0; PLOT (d*8>-8,0: DRAW 
0,7: DRAW ((LEN w*)*8>+16,0: DR 
AW 0,-7: DRAW -(((LEN w*>*8)+16> 
,0: INK 7 
140 FOR a=l TO y 

150 FOR b=16~INT (x/2) TO x+(15 
-INT (x/2)) 

151 LET p=6: LET i=0 

152 IF ATTR (a,b> =23 THEN LET 



p=2: LET i=7 

153 PRINT AT a,b; OVER 1; PAPER 
0; INK 6;" " 

160 IF SCREEN* (a,b)=w*(l) THEN 
GO SUB 200 

165 PRINT AT a,b; OVER 1; PAPER 
p; INK i;" " 

166 BEEP .01,b*2 
170 NEXT b: NEXT a 

180 PRINT AT 21,0; PAPER 5; INK 
0;" SORRY WORD NOT FOUND TRY AG 
AIN " 

185 PAUSE 100: PRINT AT 21,0;" 

190 GO TO 120 
200 REM PART 2' 

210 IF SCREEN* (a-1,b + 1)=w*(2) 
THEN GO SUB 300 
220 IF SCREEN* (a,b+1>=w*(2> TH 
EN GO SUB 400 

230 IF SCREEN* (a+1,b+1)=w*<2) 
THEN GO SUB 500 
240 IF SCREEN* (a+1,b)=w*<2) TH 
EN GO SUB 600 

250 IF SCREEN* (a+1,b-1)=w*(2) 
THEN GO SUB 700 
260 IF SCREEN* (a,b-1)=w*(2) TH 
EN GO SUB 800 

270 IF SCREEN* (a-1,b-1)=w*(2) 
THEN GO SUB 900 
280 IF SCREEN* (a-1,b)=w*(2) TH 
EN GO SUB 1000 
285 RETURN 
300 REM PART A 
310 FOR n=1 TO LEN w* 

320 IF SCREEN* (a-(n-1>,(n-1>+b 
><>w*(n> THEN RETURN 
330 NEXT n• 

340 BRIGHT 1: LET p=0: LET i=7: 
GO SUB 360 

345 INPUT PAPER 5; INK O;"PRES 
S ENTER TO CONTINUE";t* 

350 BRIGHT 0: LET p=2: LET i=7: 
GO SUB 360 
355 GO TO 120 


360 FOR n=l TO LEN w* 

370 PRINT AT a-(n-1>,(n-1>+b; O 
VER 1; PAPER p; INK i;" " 

380 NEXT n 

390 RETURN 

400 REM PART B 

410 FOR n=1 TO LEN w* 

420 IF SCREEN* (a,(n-1>+b)<>w*( 
n) THEN RETURN 
430 NEXT n 

440 BRIGHT 1: LET p=0: LET i=7: 
GO SUB 460 

445 INPUT PAPER 5; INK 0;"PRES 
S ENTER TO CONTINUE";t* 

450 BRIGHT 0: LET p=2: LET 1=7: 

GO SUB 460 

455 GO TO 120 

460 FOR n=l TO LEN w* 

470 PRINT AT a,(n-l)+b; OVER 1; 
PAPER p; INK 1;" " 

480 NEXT n 

490 RETURN 

500 REM PART C 

510 FOR n=l TO LEN w* 

520 IF SCREEN* ((n-1>+a,(n-1>+b 
><>w*(n) THEN RETURN 
530 NEXT n 

540 BRIGHT 1: LET p=0: LET 1=7: 
GO SUB 560 

545 INPUT PAPER 5; INK O;"PRES 
S ENTER TO CONTINUE";t* 

550 BRIGHT 0: LET p=2: LET i=7: 

GO SUB 560 

555 GO TO 120 

560 FOR n=l TO LEN w* 

570 PRINT AT (n-1)+a,(n-1)+b; 0 
VER 1; PAPER p; INK i;" " 

580 NEXT n 

590 RETURN 

600 REM PART D 

610 FOR n=l TO LEN w* 

620 IF SCREEN* ((n-1>+a,b><>w*( 
n) THEN RETURN 
630 NEXT n 

640 BRIGHT 1: LET p=0: LET i=7: 
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GO SUB 660 

645 INPUT PAPER 5; INK 0;"PRES 
S ENTER TO CONTINUE";t* 

650 BRIGHT 0: LET p=2: LET i=7: 

GO SUB 660 

655 GO TO 120 

660 FOR n = l TO LEN w* 

670 PRINT AT <n-l)+a,b; OVER 1; 
PAPER p; INK i;" " 

680 NEXT n 

690 RETURN 

700 REM PART E 

710 FOR n=l TO LEN w* 

720 IF SCREENS ((n-1>+a,b-(n-1> 
><>w*(n> THEN RETURN 
730 NEXT n 

740 BRIGHT 1: LET p=0: LET i=7: 
GO SUB 760 

745 INPUT PAPER 5; INK 0;"PRES 
S ENTER TO CONTINUE";t* 

750 BRIGHT 0: LET p=2: LET 1=7: 

GO SUB 760 

755 GO TO 120 

760 FOR n=l TO L^EN w* 

770 PRINT AT (n-1>+a,b-(n-1); 0 
VER 1; PAPER p; INK i;" " 

780 NEXT n 
790 RETURN 
800 REM PART F 

810 FOR n=l TO LEN w* \ 

820 IF SCREEN* (a,b-(n-1)><>w*( 
n) THEN RETURN 
830 NEXT n 

840 BRIGHT Is LET p=0: LET i=7: 
GO SUB 860 

845 INPUT PAPER 5; INK O:"PRES 
S ENTER TO CONTINUE"; t* 

850 BRIGHT Os LET p=2: LET 1=7: 

GO SUB 860 

855 GO TO 120 

860 FOR n=l TO LEN w* 

870 PRINT AT a,b-(n-l>; OVER 1; 
PAPER p; INK i;" " 

880 NEXT n 

890 RETURN 

900 REM PART G 

910 FOR n=l TO LEN w* 


920 IF SCREEN* (a-(n-1>,b-(n-1) 
><>w*(n> THEN RETURN 
930 NEXT n 

940 BRIGHT 1: LET p=0: LET i=7: 
GO SUB 960 

945 INPUT PAPER 5; INK 0$"PRES 
S ENTER TO CONTINUE";t* 

950 BRIGHT 0: LET p=2: LET 1=7: 

GO SUB 960 

955 GO TO 120 

960 FOR n=l TO LEN w* 

970 PRINT AT a-(n-1),b-(n-1); 0 
VER 1; PAPER p; INK i;" " 

980 NEXT n 
990 RETURN 
1000 REM PART H 
1010 FOR n=l TO LEN w* 


1020 IF SCREEN* <a-<n-l>,b><>w*( 
n) THEN RETURN 
1030 NEXT n 

1040 BRIGHT 1: LET p=0: LET i=7: 
GO SUB 1060 

1045 INPUT PAPER 5; INK O;"PRES 
S ENTER TO CONTINUE";t* 

1050 BRIGHT 0: LET p=2: LET 1=7: 

GO SUB 1060 
1055 GO TO 120 
1060 FOR n=l TO LEN w* 

1070 PRINT AT a-(n-l),b; OVER 1; 

PAPER p: INK i;" " 

1080 NEXT n 
1090 RETURN 

9998 STOP 

9999 SAVE "SOLUTION" LINE 1 





10 BORDER 0: PAPER 0: INK 7: C 
LS : FOR a=0 TO 63: READ b: POKE 
USR "a"+a,b: NEXT a 
30 PRINT AT 0,10; FLASH l;"Bir 
d Drop" 

50 PRINT AT 5,0;"The idea of t 



D ROP as many eggs as you can 
onto the flowers below before 
the bird lands. Ten points are 
given when a flower is hit but if you 
miss and waste an egg five points will be 
deducted. To release an egg use key 


Bird Drop was written for the 16K 
Spectrum by David Yates of Higher 
Irlanx, Manchester. 


he game is to drop eggs on as ma 
ny flowers (_G) as possible befo 
re the bird lands." 

60 PRINT AT 9,0;"Points are aw 
arded for each hit ,while misses 
are deducted from your score." 
70 PRINT AT 13,4;"Use 'd' to f 
ire an egg.";AT 15,2;"Press any 
key to continue.": PAUSE O 

80 BORDER 2: PAPER 7: INK 0: C 
LS : GO SUB 1000 

90 FOR a=0 TO 4: LET b=INT (RN 
D*30) : PRINT AT 19,b; INK 4;'LG"; 
AT 20,b; INK 3;"H": NEXT a 


100 LET y=2: LET s=0: PRINT AT 
0,10;"Score=0" 

120 FOR x=29 TO O STEP -1: PRIN 
T AT y,x;"ABC";AT y—1,x + 1;"D";AT 
y+1 , x + 1; "E_": IF INKEY*="d " OR I 
NKEY*="D" THEN GO SUB 3000 
130 BEEP .01,15: PRINT AT y,x;" 

";AT y-1,x+1;" ";AT y+1,x+1;" 
": NEXT x 

140 LET y=y+2: IF y=20 THEN GO 

TO 2000 

150 GO TO 110 

1000 PRINT AT 21,0; PAPER 5;" 


RETURN 

2000 PRINT AT 0,10; INK 0; PAPER 
7; FLASH 1;"Score=";s;AT 5,6; I 
NK 6; PAPER O;"Another go (y/n> 
?": INPUT e*: LET e*=e*( TO 1) 
2030 IF e*="y" OR e*="Y" THEN G 
0 TO 80 

2040 GO TO 9080 


3000 FOR d=y+2 TO 18: PRINT AT d 
,x + 1 BEEP .05,-5: PRINT AT 

d,x +1;" ": NEXT d: GO SUB 4000: 
RETURN 

4000 IF ATTR (19,x+1)=60 THEN L 

ET s=s+15: BEEP .3,40: FOR z=7 T 

O 3 STEP -1: PRINT AT 20,x+1; IN 

K z;'Mj": PAUSE 5: NEXT z 

4010 PRINT AT 0,16;" ": BEEP 

.2,30: LET s=s-5: PRINT AT 0,10; 

"Score=";s: RETURN 

9000 DATA 0,0,255,63,15,0,0,0 

9010 DATA 24,255,255,255,126,60, 

36,36 


9020 DATA 
9030 DATA 
4 

9040 DATA 
9050 DATA 
9060 DATA 
6 

9070 DATA 


0,0,255,252,240,0,0,0 
0,60,66,102,90,90,36,2 


36,36,90,153,0,0,0,0 
O,0,60,126,126,60,0,0 
24,36,36,24,16,84,56,1 

255,255,126,126,126,12 


6,60,60 
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JUNGLE e 
TROUBLE 


SCAPE from the jungle before 
you are captured by the animals. 
As you reach the edge of the 
jungle you will move into denser 
growth and be confronted by more ani¬ 
mals. Do not move too fast as you may 


find that the animals suddenly appear in 
front of you. Use the cursor keys in 
your bid to escape. 

Jungle Trouble was written for the 
16K Spectrum by Andrew Toumazou, 
London W3. 


1 BORDER Os PAPER Os INK 7: C 
LS 

2 LET sc=0 

3 LET 1i=3 

6 FOR n=0 TO 7s READ data: DA 
TA BIN 00111000,BIN 00101000,BIN 

00111000,BIN 00010000,BIN 11111 

110, BIN 00010000,BIN 00101000,BI 
N 01000100s POKE USR "a"+n,data: 

NEXT n 

7 FOR n=0 TO 7s READ datas DA 
TA BIN 00111100,BIN 01111110,BIN 

11011011,BIN 11011011,BIN 11111 

111, BIN 11111111,BIN 11000011,BI 
N 01111110s POKE USR "b"+n,data: 

NEXT n 

9 BO SUB 700 
10 LET a=INT (RND*2>+1 
20 LET b-INT (RND*30> 

30 PRINT AT a , b ; " A_" 

31 PRINT AT a,b;"A" 

32 PRINT AT a,b; "A 11 
35 LET aa=a: LET bb=b 

40 IF INKEY*="6" THEN LET a=a 
+1: LET sc=sc+l: BEEP .1,2 

60 IF INKEY*="8" THEN LET b=b 
+1: LET sc=5c+l: BEEP .1,3 

70 IF INKEY*="5" THEN LET b=b 
—1: LET sc=sc+l: BEEP .1,1 

77 IF SCREEN* <a+l,b><>" " THE 
N GO TO 500 

80 PRINT AT aa,bb;" " 

83 LET d=INT (RND*18>+3 

84 LET c=INT <RND*30>+1 

90 IF a=0 THEN BEEP .2,3: BEE 
P .2,4: BEEP .2,5: BEEP .2,2: LE 


T 1i=1i-1: GO TO 10 

95 IF 1i=0 THEN CLS : BO TO 5 

10 

100 IF b=0 OR b=31 THEN BEEP . 
2,3: BEEP .2,4: BEEP .2,3: BEEP 
.2,2: LET li=li~l: GO TO 10 
105 IF a=18 THEN BEEP .10,10: 
BEEP .10,9: GO TO 10 
110 PRINT AT d,c; INK 4;"BBB" 
200 PRINT AT 21,0; PAPER 2;" S 
CORE=";sc;" " 

210 PRINT AT 21,10; PAPER 2;" 

LIVES=";1i;" 

499 GO TO 30 

500 LET 1i=1i-1: CLS : BEEP .3, 
4: BEEP .1,4: BEEP .2,4: BEEP .3 
,4: GO TO 10 

510 PRINT AT 10,10;"SCORE=";sc 
520 PRINT AT 12,10;"ANOTHER GO( 
Y/N) " 


530 IF INKEY*="y" 
UN 

THEN 

CLS : 

R 

540 IF INKEY*="n" 
TOP 

THEN 

CLS : 

S 

600 GO TO 530 




700 PRINT AT 0,5; 

PAPER 

2;"JUNG 

LE TROUBLE!!" 




710 PRINT AT 3,5; 

INK 4; 

"USE 

TH 

E CURSOR KEYS TO 


MOVE 

T 

0 THE BOTTOM OF 


THE 

JU 

NGLE BEFORE THE 


ANIMAL 

S CAPTURE YOU.": BEEP .50,10 



750 PRINT AT 21,5;"PRESS ANY KE 
Y" 

800 PAUSE 0: CLS 
1000 GO TO 10 
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D ESTROY the enemy flying 
overhead by launching and 
steering your missiles at them. 
Press “0” when you are near the enemy 
and try to catch them in the explosion. 
If you hit one of the mines left in the 
enemy’s trail your missile will explode, 
leaving the enemy free to bomb your 
base. 

Minestorm was written for the 16K 
Spectrum by Ian Dando, aged 16, of 
Lancs. 




MBTORfci 


2 RESTORE s GO SUB 9000: LET 
hi=0: LET h$="ODNADSOFT II": GO 
SUB 7000 

4 LET k=5 

5 LET sc=0: LET lives=3 

6 BORDER 4: PAPER 5: CLS 

7 LET p=15 

12 PRINT AT 21,0; PAPER 4; BRI 
GHT 1;" 

13 LET y=17: LET p=p+l: IF p>= 
27 THEN LET p=27: LET k=k-.25: 

IF k< =.5 THEN LET k = . 5 

14 LET x=p: PRINT AT 21,0; PAP 
ER 4; BRIGHT 1; INK 1?" SCORE:"; 
AT 21,7;sc 

15 PRINT AT 20,p-2; INK O; PAP 
ER 5;" HHH";AT 19,p-2; INK 2;" _D 

INVERSE 1;"G"; INVERSE O; "El'; 
AT 18,p-1; INK 1; " ±" 

17 PRINT AT 21,23; PAPER 4; BR 
IGHT 1; INK 1;"LIVES:"; INK 0; I 
NVERSE 1; ("III" AND 1 i ves=3) ; ( "_I_ 

AND 1 i ves=2> ; ( " IJ' AND lives=l 

) 

20 PRINT AT 19,0; INK 3;'1D"; I 
NK 7; PAPER 0;"( 4»g6) "; INK 3; P 
APER 5; "JE" ; AT 20 7*57 INVERSE 1; "_E 
"; PAPER 0;"BASE"; PAPER 5; "D" 

21 PRINT AT 18,1; INVERSE 1; I 
NK 4; PAPER 0; 

22 PRINT AT 17,1; INK 7;"GGGG" 

40 LET r=INT <RND*li>+2 

50 FOR c=30 TO 3 STEP -1 

55 LET y=y-l 

56 IF y<=-l THEN LET y=16: PR 
INT AT 0,x;" ": LET x=p 

60 PRINT AT y+1, x ; " " 

61 PRINT AT r, c; INK 0; "_B " 

62 IF RNDC.4 THEN BEEP .005,3 
3: PRINT AT r,c+l; FLASH 1; PAPE 
R 6; INK 1;"M" 

101 LET x=x+(INKEY*="7" AND x<3 
1)—(INKEY$="6" AND x>0> 

111 IF INKEY$="0" THEN GO SUB 
3000 

112 IF INKEY*="9" THEN LET y=y 
+ 1 

115 PAUSE k 

120 BEEP .005,y 

130 IF ATTR (y,x > =241 THEN GO 
SUB 3000 

135 PRINT AT y,x; INK 2; "A_" 

160 NEXT c 

165 PRINT AT y,x;" " 

167 PRINT AT r,4;" " 

170 FOR -f =r TO 16 

180 PRINT AT f ,3; INK 0;"F;": BE 
EP . 1 , f-(f*2) 

185 PRINT AT f,3;" " 


190 NEXT f 

195 PRINT AT f-1,3;" " 

200 FOR f = l TO 8 

210 PRINT AT INT (RND*4>+17,INT 
(RND*4> +1; FLASH 1; PAPER 6; IN 
K 2; "C_" 

220 NEXT -f 

225 FOR f = l TO 100 

230 BEEP .002,INT (RND*60> 

240 NEXT f 

245 LET 1ives=lives-1: IF lives 
< =0 THEN GO TO 250 
247 GO TO 6 

250 FOR c=0 TO 21: PRINT PAPER 
6; INK 1;» MMMMMMMMMMMMMMMMMMMMM 
MMMMMMMMMMM ": POKE 23692,255: NE 
XT c 

260 BORDER 4: PAPER 4: INK 3: F 
LASH 1 
270 CLS 

280 PRINT AT 5,7; FLASH 1; PAPE 
R 0; INK 7;"Your score was ";sc 
290 IF sc >hi THEN LET hi=sc: P 
RINT AT 10,3; PAPER O; INK 7;"WE 
LL DONE ,A NEW HIGH SCORE": INPU 
T "Please enter your name"'h$: G 
O TO 350 

300 PRINT AT 10,5; PAPER O; INK 
7;"THE HIGH SCORE IS ";HI;AT 12 
,15;"BY";AT 15,10;H* 

350 PRINT AT 20,1; PAPER 0; INK 
7;"WOULD YOU LIKE ANOTHER * GAME 
?";AT 21,12;"(Y/N)" 

360 IF INKEY$="y" THEN FLASH O 
: GO TO 5 

370 IF INKEY$="n" THEN GO TO 4 

00 

390 GO TO 360 

400 LET a*="GOODBYE FAREWELL SE 
E YOU TA RA " 

402 CLS 

403 FOR -f =0 TO 21 

405 PRINT PAPER 6; INK 1; FLAS 
H 1; BRIGHT 1;a* 

410 NEXT -f 

2999 GO TO 9999 

3000 PRINT AT y-l,x-l; PAPER 6; 

INK 2; FLASH 1; ; INVERSE 1;"C 

"; INVERSE 0;"J2";AT y,x-l;"£"; I 
NVERSE 1; "CC" ; AT y+1 , x-1; "Cj 1 ; IN 
VERSE 0;"CC" 

3005 IF r <=y+1 AND r >=y-l AND c< 
=x+l AND c>=x-l THEN FOR f=0 TO 
60: BEEP . 002,-f: NEXT +: LET sc 
•-sc+50: GO TO 3040 
3020 FOR f =30 TO -30 STEP -1: BE 
EP . 002, i : NEXT -F 

3030 PRINT AT 21,13; INK 0; BRIG 
HT 1; PAPER 4;"MISSED": GO SUB 5 
000: LET y=17: LET x=p: RETURN 


3040 PRINT AT 21,12; INK O; BRIG 
HT 1; PAPER 4;"DIRECT HIT" 

3050 GO SUB 5000: GO TO 13 
5000 FOR f = l TO 50: NEXT f: PRIN 
T AT 21,12; PAPER 4; BRIGHT 1;" 

5005 PRINT AT y-l,x-l; PAPER 5;" 
";AT y,x-1;" ";AT y+1,x-1;" 

5010 RETURN 

7000 BORDER 7: INK 1: PAPER 7: B 
RIGHT 1: CLS : PRINT AT 0,10;"MI 
NESTORM"; OVER 1;AT 0,10;"_ 


7010 PRINT '" Your main base is 
your prime concern, you must d 
efend it against enemy missi 

les_B by launching your own 

weapons ^ These missiles ca 

n be detonated at any ti 

me,they also have retro-jets and 
can hover. They are also guide 
d. The enemy missile 

s will also leave mines behind 
, to detonateyour missiles early 
so allowing them to reach their 
target." 

7020 PRINT '" the keys are" 

7030 PRINT '"6-steer left","7-ri 
ght" ' "9-retro boost/hover ","O-ex 
plode missile" 

7040 PRINT '" PRESS ANY K 

EY TO START" 

7050 PAUSE O 

7060 RETURN 

9000 FOR f = l TO 10 


9010 READ a* 

9015 FOR t=0 TO 7: READ a 

9020 POKE USR a$+t,a 

9030 NEXT t: NEXT -f 

9040 DATA "a",24,24,24,60,90,153 

,165,195 

9050 DATA "b",1,2,125,253,125,2, 
1,0 

9051 DATA "c",4,32,20,67,168,2,4 
8,10 

9052 DATA "d",1,3,7,15,31,63,127 
,255 

9053 DATA "e",128,192,224,240,24 
8,252,254,255 

9054 DATA "f",186,68,56,56,56,56 
,56,16 

9056 DATA "g",O,24,36,36,66,66,1 
29,129 

9057 DATA "h",24,126,126,231,231 
,126,126,24 

9058 DATA "i",231,165,66,231,219 
,189,126,255 

9059 DATA ,"m",165,66,165,24,24,1 
65,66,165 

9070 RETURN 
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Cette** 


No monsters 
no rubbish 


AFTER I HAD bought the 
July edition of Sinclair Pro¬ 
grams I tried the infinite 
lives POKE for Jet Set Wil¬ 
ly, which works well. I have 
since found some POKEs 
which remove the monsters. 

10 CLEAR 25000: LOAD "" 
CODE 

20 FOR a = 43780 TO 45823: 

POKE a,0: NEXT a 

30 FOR a = 46080 TO 49151: 

POKE a,0: NEXT a 

40 POKE 35899,0 

50 BORDER 1 

60 RANDOMIZE USR 

33792 

RUN. 

Do not LOAD the first part 
of the program. 

I also own Wheelie, on 
which I have reached the 
eighth level. The codes for 
the earlier levels are: second 
WITTY, third SHARK, 
fourth BEBOP, fifth XE¬ 
NON, sixth ZX83B, seventh 
2MQL3 and eighth HRME2. 

N J Aves, aged 12, 

Fleet, Hampshire. 

ZX penfriend 

I AM writing to you from the 
north of Italy. I have recently 
read some of the latest edi¬ 
tions of Sinclair Programs and 
I must congratulate you on 
the good software which you 
publish. 

I am also writing for 
another reason. I should like 
owners of 16K and 48K 
Spectrums to correspond 
with me so that we can ex¬ 
change programs, news and 
information about the Spec¬ 
trum. Here in Italy new soft¬ 
ware arrives very late, and 
there is not the variety which 
there is in the United King¬ 
dom. 

I would particularly like to 
hear from English user 
groups, as I believe they have 
lots of programs and infor¬ 
mation. 

Help me to become a good 
Spectrum owner, and gain 
yourself an Italian friend by 


writing to me at the address 
below. 

Maurizio Verdi, 
Via Scanini 90/31, 
20153 Milan, 
Italy. 

Competition 

I AM writing to tell you how 
much I enjoy your magazine 
and all the programs in it. I 
think that most readers will 
agree, however, that one fault 
in it is that there is no compe¬ 
tition. This would be a bo¬ 
nus, and would be worth 
every penny that I pay for the 
magazine — even though it is 
worth every penny as it is. 

David Oliver, 
Selkirk, Scotland. 

ZX plea 

WHEN WILL somebody 
produce something to help 
ZX-81 owners to solve their 
loading problems? What we 
want is to be able to load first 
time every time, and not have 
to sit there like ZX twits for 
five minutes, only to find that 
the program has crashed and 
our blood pressure is up 
again. Come on somebody, 
help us, we need it. 

John Giles, 
Ilford, Essex. 

Pen friend 

MY PARENTS recently 
bought me a 48K Spectrum 
which I am using successful¬ 
ly. I should like to know 
whether anyone between the 


ages of 14 and 16 would like 
to become my penfriend. We 
could exchange programs and 
I would be able to learn more 
about my computer. If any¬ 
one is interested, please write 
to me at the address below. 

Karen Webster, 
15 Melchet Road, 
Harefield, 
Southampton. 

Ant raid 

I HAVE beaten Stephen 
Tunstall’s high score on the 
program Ant Raid. I man¬ 
aged to kill 82 ants. I think 
the game is great. 

Thank you for a brilliant 
magazine. 

Michael Pearce, 
Honiton, Devon. 

Forty niner 

RECENTLY I bought a 
game called Forty Niner. 
After playing around ten 
games I got the hang of it and 
scored 51,935, which has 
given me aching fingers. 

Can anybody give me de¬ 
tails on high resolution 
graphics, as I was amazed by 
the picture of the cosmic 
cockerel, and by the writing? 

N. Knight, 
Sheffield. 

Protection 

I AM writing in connection 
with the Password program 
listed in the March edition of 
Sinclair Programs. I dis¬ 
covered that it is not an ideal 
program for protecting pro¬ 
grams against pirates. You 
cannot change the code as 
you can in my program, and 
it is also longer than my pro¬ 
gram. A short, simple protec¬ 
tion program is: 


1 PRINT AT 9,7; 
“PLEASE ENTER PER¬ 
SONAL CODE”: INPUT 

g$ 

2 IF g$ = “PC246” THEN 
GOTO ? :CLS 

3 IF g$ < > “PC246” 

THEN GOTO 1 

You can change the code as 
many times as you like by 
changing the characters with¬ 
in the inverted commas on 
lines two and three. In line 
two the question mark should 
be replaced by the number of 
the first line of the main body 
of the program. 

Richard Whitehurst, 
Lichfield, Staffs. 

Match met 

WITH REFERENCE to Ja¬ 
son Goodwin’s letter, “Meet 
your Match”, in the July 
1984 edition of Sinclair Pro¬ 
grams. It is possible to beat 
the computer. I — a non¬ 
expert with computers — can 
beat it nine times out of ten. 
My son, Andrew, and I tried 
it after reading Jason’s letter 
and I won again. 

Ann Johnson, 
Hockley, Essex. 

High score 

I HAVE JUST been reading 
the July issue of Sinclair Pro¬ 
grams and have noticed that 
Duncan Cayless had achieved 
a score of 109 on Alphabet 
Timer. I have beaten his 
first record by 41 units, as I 
scored 68. I can normally 
achieve a score of less than 
110. Please let me know if 
anyone has beaten this score. 

Paul Brown, 
Brighton, Sussex. 
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Please complete this form and enclose it with any program 
which you send to us for possible publication. 

To: Sinclair Programs, 67 Clerkenwell Road, London EC1R 5BH 

I enclose.Program(s) for the.computer. 

I guarantee that each program submitted is my own original work. 

Signed . 

Name. 

Address. 
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Youth’s high-rise crime 


We look at the latest 
Spectrum releases to 
discover just what 
Jack was doing up that 
beanstalk. 

W E ALL know the story of 
Jack, the boy whose magic 
beans grow into a beanstalk 
up which he climbs to steal the giant’s 
treasure at the top. Thor have turned 
this story into a very impressive com¬ 
puter game. 

Playing the part of Jack you must 
climb the beanstalk, move around the 
giant’s house, and take the treasure. 
There are, of course, problems. Strange 
creatures bounce around the screen, 
killing you if they touch you, and it is 
all too easy to fall to your death either 
by tumbling off an object or leaping 
carelessly off the screen. 

The strength of Jack and the Bean¬ 


ous, but must be deduced by trial and 
error, which is frustrating and unneces¬ 
sary. Most annoying of all is the long 
pause after a life is lost while the same 
little tune is played again, and again. 

It is disappointing that a game on 
which such attention has obviously 
been lavished should fall down on mi¬ 
nor details. Nonetheless, Jack and the 
Beanstalk has an originality which is 
rare in the software market at the mo¬ 
ment. 

Jack and the Beanstalk costs £5.95 
and is produced by Thor Ltd, Erskine 
Industrial Estate, Liverpool, Mersey¬ 
side. 

The Prize 

T HE PRIZE is a phenomenally 
complicated maze game. The 
player’s first task is to collect 
five code pods in numerical order. 
There are forty nine locations in this 
section of the maze, and each is populat¬ 
ed by deadly monsters which must be 
avoided or killed. The death drones and 



stalk lies in its graphics. Each screen 
consists of a well-designed and detailed 
picture which remains static while a 
small amount of creatures move across 
this background. This is an excellent 
technique, and one of which we will 
doubtless see a lot more during the 
months to come. 

Having overcome surprise at the 
graphics Jack and the Beanstalk proves 
to be a very enjoyable game. The 
instructions do not make it clear that 
one object must be collected from each 
screen before that screen can be left, 
and it is not immediately apparent why 
Jack should take the axe before climbing 
the beanstalk. Routes are also not obvi¬ 


mutants shoot at you, while the 
crushers block your way, squashing you 
to pieces. 

There are only two points in your 
favour. Firstly, it is possible to find 
extra lives hidden in the maze. Second¬ 
ly, somewhere in the maze is an energy 
base which provides immunity from 
enemies for a limited period of time. 

Once you have mapped this level, 
avoided the drones, mutants and 
crushers, and collected the pods in or¬ 
der you find yourself transported to the 
next section of the maze, where you 
must repeat the process. 

Prize money will be awarded to the 
first person to send a copy of the code 


screen on level four to Arcade. 

The Prize is produced by Arcade 
Software Technology House, 32 Chisle- 
hurst Road, Orpington, Kent and costs 
£5.50. 



Borzak 

ORZAK from Betelgeuse report¬ 
ing. Am now making my way 
back to my spaceship over rough 
terrain and marsh. Leap the crater, and 
the next, switch on the anti-gravity 
device, float along . . . there, end of 
level one. 

“Starting level two now. Aaaargh, a 
giant frog. Speed up, leap, and over. 
Now another one, speed up, leap and 
... it moved, unfair. Back to the begin¬ 
ning, defeated by the frogs again. 

“Sneaky level selection allows me to 
skip to level three. Over the hurdle, 
over the crater, anti-gravity over the 
next three hurdles. Splat, into the next 
crater. 

“Switch to level four. A dragonfly! 
Duck, then leap the snake. Under, over, 
under, over. Phew. Now, over the step¬ 
ping stones, over the leaping fish and 
under the spiders. Only level five to 
complete now.” 

Guiding Borzak through all five lev¬ 
els, back to his ship will be a challenge 
for all but the most experienced arcade 
enthusiasts. The keys are simple to use, 
but knowing when and where to jump, 
duck or speed up is a skill which needs 
weeks to perfect. 

Borzak is produced for the Spec¬ 
trum by Channel 8 Software, 51 Fisher- 
gate, Preston, Lancashire and costs 
£6.95. 

Tornado low level 

UST WHEN you thought it was 
possible to use your computer to do 
something other than fly around 
and bomb things Tornado Low 
Level screamed up to the top of the 
charts, and we are all back where we 
started. 

Not quite back, of course. The graph¬ 
ics of the game are extremely good. 
Your plane flies over trees, houses, 
pylons and sea at different heights. 
Your height is apparent due to the 
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distance your plane is from your shad¬ 
ow. This is a very good way of depicting 
three-dimensional scenes on screen, and 
has also been used by Psion in Match 
Point. 

The game is also very difficult, for 
swooping low over your target at exact¬ 
ly the right point is not as easy as it 
appears at first sight. Hitting all targets 
before you run out of time or fuel is 
virtually impossible without hours of 
practice. 

There is a tendency these days for 
manufacturers to rely heavily upon ex¬ 
cellent graphics, which will make a 
game attractive in the shops, and to 
skimp upon other aspects of the game. 
Tornado has a very eye-catching screen 
display, but its plot shows little origi¬ 
nality. 

Tornado Low Level is produced for 
the 48K Spectrum by Vortex Software, 
280 Brooklands Road, Manchester and 
costs £5.95. 


Automania 


T HE SCREEN shows lots of lev¬ 
els, connected by ladders with 
obstacles to trip over, and holes 
to fall through. You control a character 
who moves around the screen, collect¬ 
ing objects to assemble on the other 
screen. No, wait; this time the character 
you move is an endearing cartoon of a 
garage mechanic. No, of course you 
haven’t seen it before. You have to 
assemble a car, you see, and the pro¬ 
gram plays a Laurel and Hardy theme 
and . . . why are you looking so bored? 

For those of you who have not seen 
variants on this game a thousand times 
before Automania is produced by 
Mikrogen, 44 The Broadway, Brack¬ 
nell, Berkshire and costs £6.95. 

Factory breakout 

T HE ROBOT factory has been 
taken by aliens which have acti¬ 
vated the factory’s self-destruct 
mechanism. The only robot left is 
Zirky, and you must help him to evade 
the monsters and escape. 

The plot is thin, but this does not 
stop Factory Breakout being an enjoy¬ 
able, if rather straightforward game. 
There are three playscreens. Each has 
an elaborate description but, basically, 
the idea of the first is to shoot the lines 
which grow around you. If you can 
prevent the lines from reaching you for 
a set period you move on to screen two 
which involves crossing the screen with¬ 
out hitting any one of three barriers. 

On the first level it is screen three 
which proves a problem. Your move¬ 
ment is restricted, there are aliens chas¬ 


ing you, and you have to pass through 
all the doors on the screen a number of 
times in order to finally obliterate them. 

The three screens become rather re¬ 
petitive after a while, and the game does 
not have any features which make it 


outstanding among arcade-type games. 
Factory Breakout is produced for the 
48K Spectrum by Poppysoft, The 
Close, Common Road, Headley, New¬ 
bury, Berkshire and costs £5.50. 
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Numbers: how to 


use them 

O BE ABLE to program your 
machine effectively and effi¬ 
ciently, it is important to know 
a little about numbers and number¬ 
crunching. 

There are two aspects of numbers to 
consider: 

1) How you see them. 

2) How the computer sees them. 

How you see numbers depends on 

the format you use for entering numeric 
data using INPUT, LET and READ 
commands. The same kind of format is 
used by the computer to present you 
with results using PRINT and 
LPRINT commands. There are only 
three types which are of immediate 
interest. 

1) Integers. Whole numbers such as 
-1,0 and 25 

2) Real Numbers. Those with a deci¬ 
mal fraction such as 10.625, -1.33, 
3.142 and \ 

3) E Format. Such numbers as 
0.32E10 and -1.683E-12 

The Spectrum also allows numbers 
to be input in BINary format using the 
POKE command. As this is used main¬ 
ly for setting up User Defined Graphics 
the BINary format need not concern us 
here. 

For input and output (I/O) of nu¬ 
meric data, variable names must be as¬ 
signed. The rules for variable names are 
the same for both machines: 


300 REM FLOATING POINT CONVERSI 
ON 

310 INPUT X 
315 LET N=0 
320 LET S= SGN X 
330 LET X= ABS X 

340 IF X >= 2T32 THEN GO TO 40 
O 

350 LET X=2*X 
360 LET N=N+1 

370 IF X<2T31 THEN GO TO 350 

380 GO TO 500 
400 LET X=X/2 
410 LET N=N—1 

420 IF X >= 2T32 THEN GO TO 40 
O 

500 LET A 3 INT (X/256T3) 

502 PRINT 2"1'32s PRINT X 
506 LET X=X-256t3*A T 
508 LET B= INT (X/256T2) 

510 LET X=X—256"T2*B 
520 LET C= INT (X/256> 

530 LET D=X-256*C 

540 PRINT "EXPONENT 3 ";160—N 

550 PRINT "MANTISSA 3 ";A—128*(S= 

1);" “;B;“ ";C;” ";D 
560 GO TO 300 

1) Simple numeric variables (con¬ 
taining one data item) can be any combi¬ 
nation of letters and numbers, provided 
that the first is a letter. 

2) A numeric array variable must be 
a single letter, although it can duplicate 
a letter which has been used for a simple 
variable. 

Number representation 

The Z80 microprocessor at the heart 


in Basic 

of both the Spectrum and ZX81 uses an 
8 bit/byte pattern. Therefore all data 
representations, be they numbers or 
characters, are held in bytes, either 
singly or in combination. 

There are three ways in which comput¬ 
ers normally represent and handle num¬ 
bers: 

1) Integer 

2) Floating Point 

3) BCD (Binary Coded Decimal) 
BCD arithmetic is now obsolescent as 
far as most micro Basics are concerned, 
although the assembler programmer 
will know that the Z80 still supports 
this representation. 

Astute readers of previous articles 
will ask why it is even necessary to 
consider the distinction between integer 
and floating point, as the May issue 
stated that for both machines, “all num¬ 
bers are held in floating point” and “all 


lO REM FLOATING POINT/INTEGER 
DEMONSTRATION 
20 INPUT N 
30 LET T$="F" 

40 LET V= PEEK 23627+256* PEEK 
2362B 

45 IF PEEK <V+1)=0 THEN LET 
T*="I" 

50 PRINT "NUMBER ";N;'"HELD A 
S "; 

60 IF T*="I“ THEN PRINT "INTE 

GER.5 BYTES:-" 

70 IF T*="F" THEN PRINT "FLOA 

TING POINT. EXP MANTIS 

SA" 

80 FOR X=1 TO 5 
90 PRINT PEEK <V+X>;“ 
lOO NEXT X 
110 GO TO 20 


calculations performed are done on 
floating point”. In fact, only the second 
of these statements is true of the Spec¬ 
trum. So only ZX81 users can afford to 
skip the next section. 

Integer Data 

An integer is interpreted by the Spec¬ 
trum BASIC interpreter as any whole 
number in the range -65535 to +65535. 
Five bytes of memory are used to hold 
an integer, as follows: 

Byte 1 = 0 (unused) 

Byte 2 = 0 for positive integer 
= 255 negative integer 
Byte 3 = low byte 
Byte 4 = high byte 
Byte 5 = 0 (unused) 

Bytes 3 and 4 hold the integer value. In 
practical terms, this means that a num¬ 
ber N will be stored using the following 
formulae: 

For a positive integer: 

Byte 3 = N - 256*INT (N/256) 

Byte 4 = INT (N/256) (high order) 
For a Negative Integer: 


Byte 3 = 65536 - N - 256* 

INT ((65536-N)/256) 

Byte 4 = INT ((65536-N)/256 (high 
order) 

Although two of the five bytes are 
unused in this representation, it does 
enable the user or the computer to 
change the contents to floating point at 
any stage. 

Floating point data 

Any integer outside the range specified 
for the Spectrum, or any real or E 
format number specified for either ma¬ 
chine will be held in floating point. 

The system breaks the number down 
into two parts, exponent and mantissa, 
with the decimal point “floated” to 
maximize significance. In decimal, the 
process is easily understood. For 
example: 

0.005679 = 0.5679*10" 2 
= 0.5679*E-2 
Thus, we have: 
mantissa = 0.5679 
exponent = -2 

Binary floating point numbers are 
not so easily understood, although the 
principle is the same. The process is 
best demonstrated with the aid of Pro¬ 
gram 1 (suitable for both machines). 
Again, five bytes are allocated to each 
floating point number. The program 
will calculate the exponent (byte one) 
and mantissa (byte two) given the num¬ 
ber x. In effect, we are putting a “bina¬ 
ry decimal point” immediately to the 
left of the first significant binary digit as 
in decimal. In binary, with four bytes to 
fill for maximum accuracy, we “ex¬ 
pand* or “contract” the mantissa, si¬ 
multaneously “taking up the slack” on 
the exponent, by repeatedly multiplying 
or dividing by two. 

As this is quite a difficult program to 
understand, I will use the reverse tech¬ 
nique I recommended in my last article, 
i.e. program in words. 

Setup (lines 300-340) 

Input X (real number) 
n = 0 (number of multiplications/divi¬ 
sions by 2) 
s = Sign of x 
x = absolute value of x 
If x>=2T32 (overflow on 32 bits) 
THEN jump to DIVIDE 
Continue with MULTIPLY 

Multiply (lines 350-370) 
x = 2*x t Double number 
n = n +1 f and increment 
If X<2T31 (first bit of four bytes not 
yet set) 

THEN jump to MULTIPLY 
Jump to BYTE 
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Divide (lines 400-430) 
x = x/2 ) Divide number by 2 
n = n-1 r and decrement n 
IF X>=2t32 (overflow on 32 bits) 
THEN jump to DIVIDE 

Byte (lines 500-530) 

A = INT (x/256T3) Byte 1 
x = x-A*256t3 Remainder 

B = INT (x/25612) Byte 2 
x = x-B*256T2 Remainder 

C = INT (x/256) Byte 3 
D = x-256*C Byte 4 

Continue with EXPONENT 


Exponent (line 540) 

Print EXPONENT = 160 - n 

Mantissa (line 550) 

Print MANTISSA = A - 128 (if s = 
+ ve i.e. x = positive), B,C,D 
Jump to SETUP for next x 
You are probably still puzzled by the 
adjustments to the exponent and man¬ 
tissa. Clearly, the process of expanding 
or contracting the mantissa will render 
the first bit of our four byte group set 
(=1). Remembering that we are only 
simulating what the interpreter is doing 
when it reads a real number, the ma¬ 
chine therefore knows that this is a set 
bit, so it is convenient to use it as a sign 
bit. Therefore, it is left set for negative 
numbers and reset ( = 0) for positive 
numbers. 

In our simulation, resetting the first 
bit is equivalent to subtracting 128 (or 
2t7) from A. Thus, A will be less than 
128 for positive numbers and greater 
than or equal to 128 for negative num¬ 
bers. For quite different reasons the 
exponent is adjusted in order to balance 
accuracy equally between very large and 
very small numbers. As the exponent is 
an integer, as also is the mantissa now, 
which can range from D-255, this bal¬ 
ance is best achieved by making the 
exponent of the absolute value of 0.5 
(enter as j when running the program) 
equal to 128. 

Thus, 

IF ABS (x) > 1/2 THEN exp> 128 and 
IF ABS (x) < 1/2 THEN exp < 128 
You will find that the convention gives: 

x= 1/2: Exponent =128 

Mantissa = 0 0 0 0 

x=-l/2: Exponent =128 

Mantissa = 128 0 0 0 

To set the first bit of a four byte 
group from x=l/2 requires n to be 
incremented to 32. Hence the reason 
why n is subtracted from 160 to give an 
exponent of 128 at the “balance point”. 
This “bias” becomes part of the con¬ 
vention (like the sign bit) and can now 
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be used throughout. 

Peek variables area 

Program 2 is intended mainly for 
Spectrum users to demonstrate the fact 
that integers and real numbers are held 
differently. The line numbers are such 
that Program 2 can be run in conjunc¬ 
tion with Program 1 to validate floating 
point representations, so ZX-81 users 
will also find it helpful in this respect. 

The program shows how a number is 
actually stored in the VARS (variables) 
area of RAM. It gives the five byte 
representation of any number N, how¬ 
ever it is entered and (for Spectrum) 
flags integer or floating point by looking 
at the first byte (zero for integers). To 
be sure that N is the first variable in 
VARS, you should RUN (rather than 
GOTO 10) to execute, in order to clear 
the variables area. 

A few modifications are necessary to 
run Program 2 on the ZX-81: 

1) Line 40: Change the systems vari¬ 
able pointing to VARS to 16400 and 
16401. 

2) For IK machines change PRINT 
to LPRINT in line 90. This is to 
prevent screen printing from expanding 
the display file, thereby shifting VARS 
further down in memory. 

To illustrate how the two machines 
differ in application, inputting N = 
1200 gives: 

Spectrum: 

5 byte integer: 0,0,176,4,0 
ZX-81: 

5 byte floating point: 

139 (exponent) 

22,0,0,0 (mantissa) 

Spectrum owners can also obtain the 
floating point representation by enter¬ 
ing, for example, 

N = 1200.00000001 

Number manipulation 

So far, we have only considered how 
numbers are represented inside the 
computer. Numbers also have to be 
arithmetically manipulated using all the 
various operators at the programmer’s 
disposal. 

Without going into detail, it will be 
clear that integer arithmetic is much 
more straightforward than floating 
point. Quite apart from the problem of 
conversion; adding, subtracting, and 
multiplying numbers with different ex¬ 
ponents presents even bigger problems 
for the designer of micro hardware/ 
systems software. The solution is much 
more difficult for an 8 bit micro than 32 
bit main-frames, minis and the QL. 

Although the speed advantage of inte¬ 
ger arithmetic is to be found in some 


micros this feature is sadly lacking for 
both Spectrum and ZX-81. 

You should by now have a good idea 
of how numbers are stored in the VARS 
area of RAM. You also need to know 
that the memory area allocated to your 
BASIC program also stores any num¬ 
bers which are assigned literally within 
the program. Such numbers are called 
LITERALS. These may come in many 
forms e.g. LET a = 5, DATA 201, 193; 


10 

REM PEEK INTO PROGRAM 

20 

LET Z=10 


30 

GO TO 40 


40 

DATA 3,5 


50 

PRINT "LOC"; TAB 

10; ‘•CODE*' 

55 

LET V= PEEK 23635+256* PEEK 

23636 


60 

FOR X=V TO V+lOO 


70 

PRINT X; TAB 10; 

PEEK X 

80 

NEXT X 



IF X>3; FOR Z = 1 TO 10; LET 
r=r+l etc. All the numbers in these 
statements are literals. 

Every time a literal is read by the 
BASIC interpreter, it is immediately 
converted to the floating point or inte¬ 
ger (Spectrum) representation. More 
precisely, this is done as soon as a 
statement containing literals is entered. 
The format used is the same 5 byte 
pattern we have already seen for storing 
numbers in the variables area. 

Peek program area 

Program 3 will help you to under¬ 
stand more about literals by PEEKING 
the memory assigned to it. It can be 
used for both machines, although ZX- 
81 users should type line 55 as: 

55 LET V = PEEK 16509 + 

256 * PEEK 16510 

This reflects the different start points 
used for storing BASIC programs. 

The program looks at the first 100 
bytes of the PROGram area. Lines 20, 
30 and 40 do little except demonstrate 
literals. Such lines are called “dum¬ 
mies”. The demonstration works as fol¬ 
lows: 

1) RUN program, and scroll output 
up to CODE =13. This denotes EN¬ 
TER and marks the end of the first 
REM line. (CODE = 118 = NEWLINE 
for ZX-81). 

2) The next four locations contain 
line number and length for line 20. 

3) Five bytes are then seen to repre¬ 
sent the five keystrokes of LET Z = 10 

4) You will now see CODE=14 (1 
for ZX-81) which is the number flag. 

5) The next five bytes contain the 
number 10 in integer format (floating 
point for ZX-81). 

6) If you scroll on, you can work out 
for yourself how the pattern repeated 
for other literals (three more). 
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Far beyond Mirkwood lies a 
magical, uncharted land 


E xcellent though many of 

last year’s other adventure pro¬ 
grams were, it was The Hobbit 
which convinced most people that it 
was possible to fit an entire new world 
inside a Spectrum. Anybody who was 
anybody had to find out how to escape 
from the goblin’s dungeon, and the 
game sold and sold. 

The lure of an alternative world has 
proved lastingly attractive. The real at¬ 
traction of fitting such a place into a 
computer is that, unlike a book or a 
film, it is possible for the user to be¬ 
come involved, and to change the 
course of events. 

Lords of Midnight from Beyond is 
the best development so far of the other 
worlds theme. It includes 4000 loca¬ 
tions, and the view in each of eight 
directions from all these locations can 
be displayed on screen. Forests, ruins, 
lakes and mountains can all be seen 
from each different angle. The effect is 
similar to that of The Forest by Phipps 
Associates, although it is here used in a 
completely different context. 

Luxor and Doomdark 

The story behind the game is so 
complex that it cannot be explained in 
the usual form of cassette insert but, 
instead, takes up several chapters of 
fantasy novel, which are included with 
the program. 

The story is, in brief, that Lord 
Doomdark has taken over the Kingdom 
of the Moon, and infected its inhabi¬ 
tants with the Ice Fear. His forces, the 
Foul, are the villains. Against him fight 
the rightful heir to the kingdom, Luxor 
the Moonprince and his son Morkin, 
together with Corleth the Fey and 
Rorthron the Wise. Luxor possesses the 
moonring, which allows him to see 
through the eyes of any major character 
on his side, a neat structural device 
which explains convincingly why you 
should be able to move from one charac¬ 
ter to the next. 

The aim of the game is two-fold. 
Firstly, you can concentrate on the 
character of Morkin. His quest is to find 
and destroy the Ice Crown, source of 
Doomdark’s power. This is by no 
means an easy task, for Morkin must 
steal through Doomdark’s armies, find 
food and shelter on the way, kill wild 
beasts and finally make his way to 
Doomdark’s fortress and steal the Ice 


We look at some recent 
adventure releases and 
find within them vast, 
complex worlds which, 
a year ago, would have 
been impossible. 


Crown. His problems then continue for 
he must then find one of the few charac¬ 
ters able to destroy the Ice Crown. 

To complete the entire game it is 
necessary not only to move Morkin, but 
also the other three characters. Their 
aim is to hold off the forces of Doom- 
dark, and finally to drive them out of 
the country. The Foul move down from 
the north, so sympathisers must be 
recruited, armies mustered and troops 
taken to battle as quickly as possible. 

The game is enormously complicated 
and reading the book, understanding 
the point of the game and learning to 
relate the position of characters on 
screen to the map can take one entire 



playing session. People who like to load 
a game and start playing immediately 
will find this off-putting but, once the 
game has been understood, it is rela¬ 
tively easy to play, although coming 
anywhere near to finishing it is extreme¬ 
ly difficult. 

What the game really lacks is a de¬ 
tailed map, of the sort available with 
The Forest. Mapping 4000 locations by 
hand is extremely difficult, and a pro¬ 
fessional battle map would make all the 


difference in keeping close track of what 
is happening in battle. 

After the Lords of Midnight, the 
other adventure games on the market, 
good though they are, pale in compari¬ 
son. 

The Odyssey of Hope is set in 

classical Greece. The theme of the ad¬ 
venture is that Hope has been stolen 
from Pandora’s Box. Those who re¬ 
member classical myths and legends 
will find that they have a headstart on 
clues on this program. How can you 
escape from the labyrinth, what is a 
naiad, and what are the great clashing 
rocks at sea? All these questions will 
stump players who have neglected their 
Homer. 

Eat the fish 

The adventure itself is very difficult. 
Many directions lead to instant death at 
sea, and it takes many false starts and 
careful mapping before you can be sure 
enough of your ground to begin solving 
any problems. 

Problem number one is that, right 
next to the start location, you walk into 
a building from which escape seems 
impossible. A careful search reveals 
fish, wine, plough, loom and wheel, 
none of which seem designed for es¬ 
cape. The window pictured does not 
appear to exist in the computer’s mem¬ 
ory, and few ardent adventurers are 
likely to be able to fathom that it is 
necessary to eat the fish, and then use 
its backbone as a saw. 

Obscure stuff. Even more esoteric is 
the new adventure, Crusoe from Auto¬ 
mata. Both Pimania and Uncle Grou- 
cho from Automata were enjoyable 
games, and so is Crusoe. If other adven¬ 
ture games can be described as being 
like a normal crossword, Automata’s 
adventures can be described as acros¬ 
tics. Completely obscure at first, they 
have their own cult following. 

Crusoe is an illustrated adventure, 
showing a segment of island, complete 
with trees, seas, monsters, mysterious 
objects and much more. The Pi-man, 
star of so many other adventures, is set 
to save Crusoe: a very difficult task. It is 
easy to become so engrossed in watch¬ 
ing the miniscule Pi-man, move around 
the eye-strainingly detailed map, that 
you forget this is an adventure, and that 
the Pi-man must do many things other 
than simply move. 
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There are 4,000 different locations in the Lords of Midnight. This section of the terrain north of the Tower of the Moon shows 
how complex the countryside is. 


It is essential that the Pi-man main¬ 
tains his energy, by eating and drinking 
regularly. Drinking at pools is easy 
enough, but obtaining food from the 
fruit trees is more difficult. If the Pi- 
man does not eat he feels ill very soon, 
and will not last a day. His physical 
condition is charted on the right of the 
screen, in mock Middle-English script. 
Other dangers involve being eaten by 
crocodiles, sea-monsters or common-or- 
garden land monsters. 

You either like Automata games or 
you hate them. Either way, they are so 
off-beat that they are worth trying once. 
Crusoe is difficult, it will take a lot of 
thought and, with those graphics, it will 
certainly strain your eyes. 

Temple of Vran, from Incentive 
Software is the second adventure in 
their Mountains of Ket trilogy. The 
story carries on from the first part, 
Mountains of Ket, although it is not 


necessary to have played the first adven¬ 
ture in order to enjoy the second. 

Use the trampoline 

Your mission in Temple of Vran is to 
reach the temple in the east and, once 
there, to put an end to its evil inhabi¬ 
tants. On the way you will find some 
strange objects to help you in your 
quest. A sleeping kitten, a mouse, an 
elephant and a small trampoline all 
make up part of the mystery. Also 
useful are objects which you already 
hold when the game begins. Check 
these before you move anywhere, or you 
may meet an unexpected and needless 
death. 

A feature of these games is their fight 
sequences, in which your prowess, ener¬ 
gy and luck are displayed on screen, 
together with those of your opponent. 
In many cases, it is obvious from the 


outset which character will win and, 
each time you are hit, you are given the 
chance to escape. The Warts, who ap¬ 
pear frequently in this game and are 
given to throwing acid or attacking you 
for no reason, give plenty of opportuni¬ 
ty for testing fighting skill. It is neces¬ 
sary to be careful, though, before 
indulging in needless slaughter for 
many of the characters who can be 
killed are useful. 

Intriguing game 

Temple of Vran is an intriguing game 
with a lot of possibilities. The puzzles 
are simple to begin with, and then 
become more and more difficult. Know¬ 
ing when to fight people, and when to 
talk to them is also a continual problem, 
and the lack of a HELP facility makes 
the problems appear even more diffi¬ 
cult. 
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DEUSEXMACHINA 


PIROMANIA 






>fL^ 


DARTZ 




YAKZEE 


AUTOMATA U.K. 

The Pi man’s Software House 





DEUS EX MACHINA 48K Spec. Kempston 
Joystick & ZX Interface 2 compatible. The 
unique new era of entertainment, starring 
Ian Dury, Jon Pertwee, Frankie Howerd and 
you, in an animated televised fantasy, 
synchronised to an incredible stereo sound¬ 
track. There is nothing like it in this world. 


PI MANIA 48K Spec. The Cult Adventure 
that's for real! Could you be the lucky 
winner of The Golden Sundial of Pi'? Many 
have tried and failed. Voted program of 
1983 by the Computer Trade Association 
(Joint winner). 


PIROMANIA 48K Spec. M/C Arcade Style, 
Kempston Joystick & ZX Interface 2 
compatible. Strike a light! Fire your imagin¬ 
ation. That bright spark of a Piman is 
flaming well out to make the residents of 
Automata Towers the toast of the town! 

Can you help Walter Hose dampen the 
Piman's extinguished career and help the 
inmates give up smoking? 


DARTZ 48K Spec. Family fun. This 
'arrowing version of your local's favourite 
game! Includes true life scoring with 'The 
more you play the more you drink, the 
worse your game becomes' rule! 


PI-EYED 48K Spec. M/C Arcade Style. 
Kempston Joystick compatible. The Piman's 
hit the bottle! Can you help him negotiate 
the traffic and drink the town dry? 


YAKZEE 48K Spec, and Dragon. Family 
fun. An oriental game of luck and skill for 
1 to 4 players, playing between 1 to 4 
rounds. Each tape comes with both the 
Dragon and the 48K Spectrum versions 
along with a simple to follow guide on how 
to play YAKZEE. 


NEW WHEELS JOHN? 48K Spec. Family fun. Would you buy a used 
motor from this man? Dare you clock an old banger? Have you ever 
wondered what it's like to run your own second-hand car lot? Wheel 
leave the rust to you! 


CRUSOE 48K Spec. M/C Graphic & Text 
Adventure. Shipwrecked and stranded, on 
ye remote island, with nothing save a bottle 
of Granny's patent elixyr, an empty stomach, 
ye shorts that he stands up in . . and thou. 

Ye adventure is only just beginning. Can you 
help him escape ye island's perils? 


PI-INHERE 48K Spec. M/C Arcade Style. 
Kempston Joystck & ZX Interface 2 
compatible. 61 screens of action as Burt 
searches for the elusive bug inside a 
computer, while keeping out of the reaches 
of the minor menaces. The program includes 
Hi-Score, Save and Load facility as well as 
Replay from last position feature. 

OLYMPIMANIA 48K Spec. M/C Arcade 
Style. Currah Micro Speech & Kempston 
Joystick compatible. For all those who just 
can't get enough of the Olympics, the Piman 
stages his own just for you! Yes he's going for 
gold in the craziest events you've ever seen! 
Can you set new world records in the 
Speepichase, Alpi Ski-ing, Pitathlon, Pi-Jump, 
or even the Butterpi? The Piland International 
Anthem on the flip side. 

PI-BALLED 48K Spec. M/C Arcade Style. 
Currah Microspeech & Kempston Joystick 
compatible. Bouncy, bouncy, this fast action 
game will let you have a ball! Starring The 
Balls Brothers, Sid the Snake, Jas'n'Col, and 
your friend and ours The Piman. 


MORRIS MEETS THE BIKERS 

16/48K Spec. M/C Arcade Style. Kempston 
Joystick compatible. Morris finds himself 
abandoned in a multi-storey car park. Help 
him gather the 10 coins per screen to pay his 
way out, while avoiding the kamikaze bikers. 


GO TO JAIL 48K Spec. 

Family fun. A computer property trading 
game for up to 5 players. Your computer not 
only acts as a banker, but can also take on the 
roll of a ruthless player, buying, selling and 
trading its own property. 



CRUSOE 



ipm 

AWZZZZZA^. % 
w, 

OLYMPIMANIA 



GO TO JAIL 


BACKCHAT CBM64 Speech Synthesiser. Automata's speech synthesiser 
comes complete with easy to use Programming Manual and Software cassette 
containing both BASIC & M/Code programs, so you can now add speech 
to all your home grown games using BACKCHAT's allophone vocabulary. 


ORDER COUPON 


CRUSOE. 48K Spec £60 

PI-EYED.48KSpec£6D 

PIROMANIA .... 48K Spec £60 

PI-IN'ERE. 48KSpec£6D 

YAKZEE .. Dragon/48K Spec £50 


DEUSEXMACHINA.48K Spec £150 

GOTO JAIL.48 K Spec £60 


MORRIS MEETS THE BIKERS.. Any Spec £60 

T-SHIRTS State Size. Price £5[I 

'BACKCHAT' Speech Synth. CBM64 with Software & Programming Book. £250 

PIMANIACS CLUB for 20% off all products, Pi-Monthly Magazine. Annual Subscription U.K 

/ enclose the right money, or debit my A CCESS/VISA Card. My Card number is . 

Card holders signature . Card holders name . My name 

My address . 


PIMANIA.48K Spec £10O 

0 LYMPIMANIA.48K Spec ESQ 

PI-BALLED. 48K Spec 

DARTZ.48K Spec 

NEW WHEELS JOHN? 48K Spec 
Piman's Stereo L.P. Cassette_ 

£50 Overseas £70 


£60 

£50 

£5 0 

£30 


. Post Code . 

NO EXTRAS! All our prices include VA Tand Postage & Package. 24 hr.-CREDIT CARD HOT LINE (0705) 735242. 

Send your order and payment to: AUTOMATA U.K. LTD. 27 HIGHLAND ROAD, PORTSMOUTH, HANTS. P04 9DA, ENGLAND. 

















































































S LITHERY Jim is a program suit¬ 
able for young children. Tempt 
Jim out of the basket by offering 
him different animals to eat. There are 
thirty animals recognised by Jim andr^* 
these include cats, dogs, bears and' 
sloths. If any of these are mispelt or an 
unknown animal is entered, a question 
mark is shown. The other answers de¬ 
pend on how Jim is feeling. If he is 
happy he will want the animal but if 
you upset him he may want to eat you. 

Slithery Jim was written for the 
16K ZX-81 by Ron Wood of Christ¬ 
church, Gloucestershire. 

SLITH 


1 REM '•JIM” 
a C>IM R* (6,25) 

3 LET Rft i 1) s-CflTMOLEMOUSEMQNK 
EYGIRRFFE” 

4 LET R$ (2) s”RRTUOLEHORSEDONK 
EYUHLLRBY" 

5 LET R$ (3) =”PIGFROGSLOTHLIZR 
RDCHICKEN" 

6 LET R$ (4) =”DOGTGRDCRMELUERS 
ELGGRILLR" 

„ 7 LET R$ (5) =''BRTLIONZEBRRRRBB 
ITBUFFRLG" 

8 LET R$ (6) =”COUBERRTIGERSPID 
ERPENGUIN" 

10 LET M=0 

11 LE T T$x" 


JiO!, 


SLiTHERV 


5 RINT RT 0,3,T* 

14 PRINT RT 12,3; 
SLITHERY JIM THE 

HON IS SULKING IN 
BRSKET. HE MIGHT 
ME GUT IF YOU CRN 
TEMPT HIM UITH R 
LE SNRCK. HE ERTS 
SORTS OF RNIMRL. 

PE IN UHRT R 
ON MIGHT FRNCY. . . " 

15 GOSUB ‘ 

16 LET B* 

17 LET M$: 


18 LET R $ = 
20 LET 5 $ = 




; RT 


21 LET U$ 


22 LET U*INT (RND*6) +1 

23 LET UaINT (RND*5) +1 

32 FOR X*12 TO IS STEP 

33 PRINT RT X,3;B* 

34 NEXT X 

35 FOR X = 1 TO 20 

36 PRINT RT 20,3;” 

20,3;"HEY JIM” 

37 NEXT X 

40 PRINT RT 20,10;”,UOULD YOU 
LIKE R. . . . " 

41 INPUT Q $ 

42 LET M-M + l 

43 IF Mal0 THEN GOTO 200 

45 IF U*1 THEN LET P*=R$(U) (1 
TO 3) 

46 IF U = 2 THEN LET P$=R$(U> (4 
TO 7) 

47 IF U =3 THEN LET- P$=R$ (U) (3 
TO 12) 

48 IF U=4 THEN LET P$=R*(U) (13 
TO 13) 

49 IF U*5 THEN LET P$=R$(U) (19 
TO 25) 

54 IF Q$=P$ THEN GOTO 300 

56 FOR T = 1 TO 6 

57 IF Q$oP$ RND 0$=fl$(T) (1 TO 
3) OR 0 $ = R $(T) (4 TO 7) OR Q$sR* 

CT) (S TO 12) OR G$=R*(T) (13 TO 1 
8) OR Q$ =R$(T) (19 TO 25) THEN GO 
TO 200 

58 NEXT T 

59 FOR T = 1 TO 6 

60 IF fltoR$(T) (1 TO 3) OR Q$< 
>H$ (T) (4 TO 7) OR 0$ < >R$ (T) (8 TO 

12) OR Q$<>R$(T)(13 TO 13) OR 0 
$ < >R$ (T) (19 TO 25) THEN GOTO 400 

61 NEXT T 

64 PRINT RT 10,5;R* 

65 FOR Xs0 TO 5 

66 NEXT X 

70 PRINT RT 7,5,5* 

100 PRINT RT 21,3;”BUT FIRST,PR 
ESS R KEY ...” 

105 IF INKEY*=”” THEN GOTO 105 
110 CLS 



0,3; T$ 


115 PRINT RT 
120 RETURN 

200 PRINT RT 20,0;” 

201 PRINT RT' 10,4;R* 

205 FOR X=1 TO 3 

206 NEXT X 

207 PRINT RT 7,4;S* 

203 IF M=10 THEN PRINT RT 6.4;U 
S 

209 PRINT RT 7,15;”I CRN””T STR 
ND”;RT 3,15,0$;”S” 

210 IF M s10 THEN PRINT RT9,15. 
”BUT I MIGHT”. RT 10,18; rif^F ” ; 

flT vji.'W* 


; s$ 


.vWtt- 


.; RT 14,13, 


215 IF M = 10 THEN GOTO 339 

220 FOR X*0 TO 80 

221 NEXT X 

225 PRINT RT 7,4;” 


•'; RT 10 ,4; R t 

226 FOR Xsl TO 3 

227 NEXT X 

228* PRINT RT 10,4, ” 


250 GOTO 35 

300 PRINT RT 20,0;” 

301 PRINT RT 10,1;R$ 


305 FOR Xs1 TO 3 

306 NEXT X 
310 PRINT RT 7,1; 

315 FOR P=1 TO 7 

320 PRINT RT 7,P;S* 

321 NEXT P 

325 FOR P =7 TO 1 STEP 

326 PRINT RT 7,P.;S$ 

327 NEXT P 

328 PRINT RT 6,4,U$ 

330 PRINT RT 7,15;"R 

331 PRINT RT 8,15;"I” 

”; o$ 

332 PRINT RT 9,15;”LET ME GIUE 
YOU R” 

333 PRINT RT 10,15. JF IlflVIl ■ 
■I ,, JRT n i5 UUUULL. 

33$ FOR Xsl T™20 
340 PRINT RT 7,3; ''AIA”;flT 7,3 
-; RT 7,3; ” JTi”;flT 7,3; ” 


-1 


”, G$, 

"£> LOUE R 


341 NEX 


NEXT X 
345 STOP 

400 PRINT RT 20,0,” 

405 PRINT RT 7,6;M$ 

407 PRINT RT 7,l5;”I DON” 
U'';RT 8,15, “UHRT THRT IS” 

410 FOR X =0 TO 80 

411 NEXT X 

415 PRINT RT 7,4,” 

420 GOTO 35 
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m soacer 

B RICKS and light bulbs fall from 
the top of the screen and you 
must catch as many as you can. If 
any of the objects touch the floor an 
uncrossable crater will be left. It is 


370 IF q=l THEN PRINT AT y+l,x 
-15 M " 

500 GO TO 200 

2005 FOR n=144 TO 164: FOR m=0 T 
0 7 

2010 READ a 

2020 POKE USR CHR* n+m,a 

2030 NEXT m: PRINT AT 16,n-140;" 

ft B " ; AT 17, n-140; " CD";AT 18,n-3 
40;" EF": NEXT n 

2040 DATA 0,0,15,31,63,60,123,12 
O 

2050 DATA O,6,240,248,252,140,17 
4,174 

2060 DATA 122,120,63,63,31,15,7, 


possible, however, to use any bricks you 
have caught to fill the holes. If a brick 
hits you anywhere other than on your 
hat you will die. 


2070 DATA 174,142,252,252,248,24 
0,224,192 

2080 DATA 1,2,3,1,2,1,0,0 
2090 DATA 192,64,128,192,64,128, 
0,0 


Mr Socket was written for the 16K 
Spectrum by John Hobdell, aged 14, of 
Dursley, Glos. 


10 BORDER 2: PAPER 0: INK 7: C 
LS : GO BUB 3000: CLS 
30 LET p=15: LET h=l 
40 LET sc=0 
50 LET b=0 
60 LET s=0 

70 PRINT AT 21,0; PAPER 2; INK 
0; “ r-i r-i r-i r-i r-i r-i r-i r-i t-i r-i r-i h r-i r-i r-i r -i r-i m r-i r-i m 
( r-i h r-i r-i r-i m r-i m r-i m r- i * 1 * * * S * * * * * 11 

80 FOR n=0 TO 20: PRINT INK I 
NT <RND*4+1>;AT n,0;"£i";AT n,31; 
"P": NEXT n 
90 LET z =50 

110 LET x=INT (RND*29>+1: LET y 
=h 

120 PRINT #1; INK 0;AT 0,O;"DRO 
PS LEFT = " ;z;" "; AT 0,16;" SCOR 
E = "?5C 

130 IF s+b=30 THEN GO TO 6500 
140 LET z=z~l: IF z=0 THEN GO 
TO 6000 
150 LET q=0 

160 IF x<12 AND RND>.5 THEN LE 
T q=l 

170 IF x >19 AND RND>.5 THEN LE 
T q=-l 

210 IF q=0 THEN PRINT INK 3;A 
T v.xs " ftJB " ; AT y+1 ,x ; " C_D" ; AT y+2, 
x; "EF" 

220 IF q< >0 THEN PRINT AT y+2, 
x; INK 2; "ST 11 

230 PRINT AT (y>1)*y-l,x;" " 

240 LET y=y+1: LET x=x+q 
250 IF INKEY$="p" AND ATTR (21, 
p+2)< >2 AND p< 29 THEN LET p=p + l 
: PRINT AT 19,p-l;" ";AT 20,p-l; 

" ";AT 21,p — 1; INK 0; PAPER 2;"i±_ 

260 IF INKEY$="P" AND b>0 AND p 
<29 THEN LET p=p+l: PRINT AT 19 
,p-1;" ";AT 20,p-l;" ";AT 21,p-l 
; INK 0; PAPER 2; " M": PRINT AT 0 
,31-b;" ": LET b=b-l 
270 IF INKEY*="o" AND ATTR (21, 
p-1) 02 AND p>l THEN LET p=p-l: 
PRINT AT 19,p+2;" ";AT 20,p+2;" 

";AT 21,p+2; INK 0; PAPER 2;"FT 
280 IF INKEY^ a= "0" AND b >0 AND p 
>1 THEN LET p=p-l: PRINT AT 19, 
p+2;" ";AT 20,p+2;" ";AT 21,p+2; 

INK 0; PAPER 2;"rl; , : PRINT AT 0, 
31-b;" ": LET b=b-l 
290 PRINT AT 21,p; PAPER 2; INK 
O; " KL ";AT 20,p; INK 4; PAPER 0; 
BRIGHT 1; " IJ";AT 19,p; INK 1;"G 
H" 

320 IF q=0 AND y=17 AND p=x THE 
N GO TO 4000 

330 IF q<>0 AND y=17 AND p=x TH 
EN GO TO 4050 

340 IF q< >0 AND y>17 AND y<20 A 
ND p—x THEN GO TO 6250 
350 IF y=19 THEN GO TO 4250 
360 IF q=—1 THEN PRINT AT y+1, 
x + 1; " 


2100 DATA 
2110 DATA 
224 252 
2120 DATA 
7 

2130 DATA 
0,240,224 
2140 DATA 
,32 

2150 DATA 

, si2 

2160 DATA 
32 

2171 DATA 


4 , 7 , 7 , 7 , 7 , 7 , 7,63 

32 , 224 , 224 , 224 , 224,224 

7 , 15 , 29 , 249 , 159 , 30 , 15 , 

224 , 240 , 219 , 158 , 248,12 

249 . 225 . 255 . 4 . 4 . 255.32 

159 . 135 . 255 . 4 . 4 . 255.32 

255 . 255 . 255 . 4 . 4 . 255.32 
28 , 20 , 20 , 34 , 65 , 65 , 65,6 


2180 DATA 
240,192 
2190 DATA 
2200 DATA 
248 

2210 DATA 
2220 DATA 
2230 DATA 
2240 DATA 


O,192,240,252,255,252, 

0,3,15,63,255,63,15,3 
0,0,0,128,128,192,224, 

0,0,0,1,1,3,7,31 
31,24,20,19,18,10,6,3 
248,4,2,255,1,1,1,255 
0,255,4,4,255,32,32,25 


2250 PRINT ^1;" PRESS ANY KEY 
TO START" 

2260 IF INKEY$<>"" THEN RETURN 




2270 GO TO 2260 


3005 PRINT PAPER 6; INK 0;AT 1, 
11;"MR. SOCKET";AT 2,9;" meet 
s ";AT 3,5;"THE 60 WATT LIGH 

T BULBS" 

3010 PRINT AT 7,7;"Use '0' to go 

1 e-f t" 

3020 PRINT AT 9,9;"& 'P' to go r 

i ght" 

3030 PRINT AT 11,5;"Pressing CAP 

S SHIFT & a direction key 

will allow you to rebuil 

d some wal1" 

3040 GO TO 2000 
4010 PRINT AT y-l,x;" 

4020 PRINT INK 7; BRIGHT 1;AT y 
, x ; " ftB" ; AT y+1, x; " CD " 

4030 LET s=s+l 

4035 LET sc=sc+60 

4040 PRINT AT 0,s; INK 7; PAPER 

1; " N" 

4042 FOR n«7 TO 0 STEP -1: PRINT 
BRIGHT 1; INK n;AT y,x;"ftB";Al 
y+1,x;" CD": BEEP .01,15-n: NEXT 
n 

4045 GO TO 100 

4050 PRINT AT y+l,x-q;" " 

4060 PRINT AT y,x;" " 

4070 BEEP .1,20: BEEP .2,40 
4080 PRINT AT 0,30-b; PAPER 2; I 
NK 6; " |J " 

4090 LET b=b+l 
4095 LET sc=sc+100 
4100 GO TO 100 

4250 IF q< >0 THEN GO TO 4300 
4255 PRINT AT y-l,x;" ";AT y,x; 

" ";AT y+1,x;" " 

4260 FOR n-0 TO 7: PRINT PAPER 
7-n; INK n;AT v.x;" RB"s AT y+l,x; 
"CD";AT y+2 , x ; "EF" 

4270 BEEP n/200,-n*5: NEXT n 
4280 PRINT AT y,x;" ";AT y+1,x; 

" ";AT y+2,x; PAPER 0; INK 2;"O 

R" 

4290 GO TO 100 

4300 PRINT AT 20,x-q;" ";AT 21, 

x; INK 2; PAPER 0:" QR" 

4305 FOR n=-20 TO -30 STEP -2: B 
EEP .01,n: NEXT n 
4310 GO TO 100 

6005 FOR n=5 TO 30 STEP 5: BEEP 
n/100,-n: NEXT n 

6010 PRINT AT 7,9; FLASH 1;"MISS 
ION OVER" 

6020 PRINT AT 9,1;"OF THE 50 lig 
ht bulbs dropped" 
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Continued on page xx 
6030 PRINT AT 11,5;"you safely c 
aught FLASH l;s 
6040 PRINT AT 13,5;"You have als 
a in your" 

6050 PRINT AT 15,6;"possession " 

; FLASH l;b; FLASH 0;" bricks" 
6060 PRINT AT 17,6; PAPER 4; INK 
0;"YOUR SCORE IS ";sc 
6100 PRINT JL1; FLASH 1;" PRES 
S ANY KEY TO START 
6110 IF INKEY$< >"" THEN CLS : G 
0 TO 20 

6120 GO TO 6110 

6250 PRINT INK 4; PAPER 8;AT 21 
,p-2; " UULJU" ; AT 20,p-1; " (sps ig5: 
sp)";AT 19,p-l; " ( g3: i g 4; g 2 ) <r ; AT 1 
8,p-l;"<sp:ig5:sp)" 

6260 PRINT AT 7,13; FLASH 1;"R.I 
.P" 


6265 FOR n=5 TO 30 STEP 5; BEEP 
n/100,-ns NEXT n 

6270 PRINT AT 9,2;"You were brav 
e and fearless in your endea 
vour to finish your missi 
on and your bravery i 
s rewarded with a s 


core of";AT 15,13; FLASH 1; sc 
6400 PRINT #1; FLASH 1;" PRES 
S ANY KEY TO START 
6410 IF INKEYfO"" THEN CLS : G 
0 TO 20 

6420 GO TO 6410 

6510 PRINT AT 7,6; FLASH 1;"MISS 
ION ACCOMPLISHED" 

6520 PRINT AT 9,0;"You safely ca 
ught "; FLASH l;s; FLASH 0;" lig 
ht bulbs" 


6530 PRINT AT 11,4;"You also sav 
ed "; FLASH 1;b; FLASH 0;" brick 


6540 PRINT AT 13,6; PAPER 4; INK 
0;"YOUR SCORE IS ";sc 
6550 PRINT AT 16,7; INK 5;"Press 
any key when you a 

re ready for your 

next mission"; IF INKEYFO"" THE 
N LET b=0: LET s=0: LET h=h+2: 
CLS : GO TO 50 
6555 BEEP .01,RND*10 
6560 GO TO 6550 




USHROOMS worth 


varying 

/%/! points appear at intervals on 
-i* w JLthe screen. You, the reptile,, 
must try to eat them before they turn 
poisonous. Each mushroom will turn 
moisonous if it is not eaten before its 
lvalue reaches 0. If you manage to eat a 
mushroom your score will increase and 
extra sections will be added to your| 
body according to the number of points 
left in the mushroom. 
i Ravenous Reptile was written for 
the 16K ZX-81 by Gerard Pegram of 
|Braintree 3 Essex. 
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30 IF D-5-C0DE B*(LEN B«) THEN 
POKE PH+CODE ft* (CODE B* (LEN B*) 

)-33,128 

81 POKE PH,21 

32 PRINT AT 18,7;"YOU KILLED V 
UURgELr 

83 IF S >H THEN PRINT RT 12,5;" 
YOU BERT THE HIGH-SCORE" 

84 IF 8 >H THEN LET H«S 

85 FOR X a1 TO 60 

86 NEXT X 

87 CLS 

88 GOTO 91 

90 LET H»0 

91 LET Sb® 

92 LET PmPEEK 16396+256*PEEK 1 
6397 

93 LET R*a"4PI 6 " 

94 LET B*b" b ," 

95 LET Da4 

96 LET PHaP+381 

97 LET PTaP+379 

98 LET Ta® _ 

00 PRINT TRB 7 : " IHHBailiaM p paaifciM 

,,,,,"GUIDE THE SNRKE ROUND T 
mw RRER",,,"USING THE CURSOR KEY 
S.ERT FOOD",,,"(EG.""H"") TO SCO 
RE POINTS flN6",,,"GR0U LONGER.R" 
OID ERTING POISON",,,"FOOD (EG. 

• ") RND YOUR Tfil 


[NKEY»a"" 
110 POKE 16418,0 


'HEN GOTO 101 
000 ® 


a GOTO 90 
10 LET IIbINKEY* 

1,< " 9 " ™ EN L 

12 LET PHaPH+CODE fl*(D)-33 

5 f > 


13 IF PEEK PH 0128 THEN GQSUB 

14 LET BfaBl+CHR* D 

15 POKE PH,158 

16 RETURN 

20 IF PH OPT RND Ta® THEN POKE 
PT j XfiQ 

21 LET PTaPT+CODE R*(CODE B*>- 
33 

22 LET B|«B« (2 TO ) 

23 RETURN 

30 FOR Xal TO 10 

31 GOSUB 10 

32 GOSUB 20 

33 NEXT X 

„ 40 LET POaP+ 68 +INT (RND*30)+IN 
T (RND*21)*33 

41 IF PEEK P0O128 THEN GOTO 4 


42 LET ObINT (RND*9)*29 

43 POKE P0,0 

44 FOR Xal TO 2*(0-28) 

45 GOSUB 10 

46 GOSUB 20 

47 NEXT X 

48 LET OaO-1 

49 IF 0 >28 THEN GOTO 43 

50 POKE PO,136 

51 GOTO 30 

60 FOR Ta 1 TO N-28 

61 GOSUB 10 

62 NEXT T 

63 GOSUB 20 

64 LET Ta® 

65 GOTO 3® 

70 IF PHaPT RND Ta® THEN RETUR 

71 




IF Ta® RND DOB-CODE Bi (LEK 
THEN POKE PT,128 
LET NaPEEK PH 

73 IF N >128 THEN GOTO 80 

74 POKE PH,23 

75 LET SaS+N-28 

76 PRINT RT 0 ,12-LEN STR* S;S 

77 GOSUB 14 

78 GOTO 60 


TO 21 


156 

118 POKE PT + 1,156 

119 POKE PH,156 

120 PRINT RT 0,28-LEN STR* H.;H 

121 GOTO 30 

130 SRUE "REPTILl" 

131 RUN 
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DRESS 
DESIUJVER 


H OLD off spies, cheat guards 
and design breathtaking 
clothes in Dress Designer, 
written for the 16K ZX-81 by Grant 
and Claire Ritchie of Dalkeith, Mid¬ 
lothian. 

Your location is unknown so you 
must explore. You are able to swap 
fashions, enter a room, sew dresses if 
you find a sewing machine or steal 
designs if you discover an easel. If a 
guard leaves the room to admire himself 
you can sneak in and find a fashion. 
Your needle power, number of designs 
and fashions collected and also the num¬ 
ber of spies killed are shown at the end 
of the game, together with your score. 


GOSUB 420 
GOSUB 480 
GOSUB 530 


DESGIN I 


jTDBES 

ffoR N*1 TO 40 

3 PRINT “*DESIGNB"; 

4 NEXT N 

5 PRINT , , •* *#**PRESS##A*#KEY* 


THEN GOTO 7 


f QR 
PRINT 
NEXT N 

PRINT ,,“*#**PRESS*#A*#KEY* 

* * *7"IF’INKEY* = 

8 CLS 

9 PRINT “UHRT IS YOUR NRME?“ 

10 INPUT B$ c 

11 PRINT “hi “ ; B*, “ .UELL IT““S 

L.IKE THIS* • 11 

12 PRINT * * *"YOU HRUE BEEN CMOS 

EN RBOUE RLL OTHERS FOR YOUR 0 
ESIGNING RBIUTV .YOU RRE R 

LSO UERY TOUGH.SO YOU ONLY HRUE 


■•Y0U B 5feRE TRRN3P0RT 

ETERNITY UNTIL YOU 
YERR 10i000 R.D.YO 
RTTRCK RND HOLD OP 
DESIGN BRERTHTRKIN 
BEURRE OF THE EUlL 
GOOD LUCK ";B(;".“ 

* * * *PRESS * *R * *FOR * 


THEN GOTO 15 


THE HOUNOUR 

13 PRINT , 

ED THROUGH 

RERCHED THE 
UR JOB IS TO 
F SPIES RND 
G CLOTHES. 

GHOUL... 

14 PRINT 
♦ NEXT **PRGE**#" 

15 IF INKEY $ = “ 

16 CLS 

17 PRINT “OH I FORGOT...YOU DO 
““NT KNOU UHERE YOU RRE.YOU"“LL 
JUST ““RUE TO GO EXPLORING ““COS 

I DONT EITHER.UOT R SHRME" 

18 PRINT ,,,,,,“PRESS RNY KEY 
TO STRRT.“ 

20 LET H*0 

21 LET NP»200 

22 LET D«0 

23 LET F *0 

24 LET S*0 

230 PRUSE 3000 

231 CLS 


232 LET C$ = “ RN EfiSEL. 

233 LET D$ = ” R DOOR." 

234 LET E$ = “ R SEUING MRCHINE. 

235 LET R«INT (RND#3>+1 
IF R«1 THEN LET Xf-Ef 
IF R=2 THEN LET Xf*C* 

IF R=3 THEN LET X*=D$ 

_IF R >3 THEN LET X*=C$ 

240 PRINT RT 21,0,“YOU RRE FRCI 
NG“;X, 

241 Scroll 

‘ ‘ SCROLL 

IF X$ = C* THEN 
IF X$=D$ THEN 
IF X$«E{ THEN 
SCROLL 
SCROLL 
GOTO 232 

420 PRINT “IHILERUE 
I INFO" 

430 INPUT B 

440 IF B = 1 THEN GOSUB 590 
450 IF B=2 THEN GOSUB 540 
460 IF B=3 THEN GOSUB 710 
470 RETURN _ 

480 PRINT “DOPEN Hi LERUE“ 

490 INPUT Z 

500 IF 2 = 1 THEN GOSUB 870 
510 IF 2=2 THEN RETURN 
520 RETURN _ _ 

S PRINT “OSEU Hi DISCONNECT 
LERUE" 

INPUT D 

550 IF D=1 THEN GOSUB 910 
560 IF D =2 THEN GOSUB 980 
570 IF D =3 THEN RETURN 
580 SCROLL 
590 SCROLL 
610PRINT “I 
RSTla WEST" 

620INPUT X 
630 RETURN 
640 SCROLL 
650 SCROLL 

560 LET R=INT (RND♦3)+1 
670 IF R >2 THEN GOSUB 1520 
630 IF R = 1 THEN GOSUB 1070 
690 IF R =2 THEN GOSUB 1450 
700 RETURN 
710 CLS 

720 PRINT RT 3,10; 

RT 4,10;“- 
730 PRINT 
740 PRINT 
750 PRINT TRB 
; NP 

760 PRINT 
770 PRINT TRB 
780 PRINT 
790 PRINT TRB 
300 PRINT 

310 PRINT TRB 4, _ 

320 PRINT RT 15,6;’ 

♦ 2) + D + (F♦S) +(3 + 11) ) 

330 PRINT RT 21,0;“<<<<PRESS RN 
Y KEY TO CONTINUED >“ 

340 PRUSE 3000 
“ - CLS 

RETURN 

LET X = INT (RND *4) +1 


rOU 


930 SCROLL _ _ . 

940 IF X<3 THEN PRINT “U.K.v 

°9F.0 D IF X >2 THEN PRINT “THIS MRC 
MINE IS DISCONNETED.“ 

960 IF RND>.7 THEN GU3UB 1050 
970 RETURN 

930 LET R = INT (RND*2:' +1 
990 3 C R 0LL 
1000 SCROLL 

1010 IF R <3 THEN PRINT "O.K.YQU 
DISONNECTED IT" _ 

1020 IF R > 2 THEN PRINT IT 
RERDY DISCONNECTED" _ 

1030 IF RND >.7 THEN GUi-UB 1050 
1050 SCROLL 
1060 SCROLL 

1070 LET R = INT (RND*9.' +1 
1030 IF R <3 T HEN LET M$=“ 


IS RL 


A 

BLOBUCLE “ 


1090 IF R =3 THEN LET M$ = “ 



1091 IF R =3 THEN PRINT “ 
INURDER" 

1100 IF R =4 THEN LET M$ = 


|NORTH | 


I SOUTH I 



SwARhL. 

1110 IF R =5 THEN LET M$ = 




iEONTX 

1120 IF R =6 THEN LET M$ = 


SPY 

1130 IF R =7 THEN LET M$ = 


1145 IF 


350 

860 

370 

380 

390 

900 

910 

920 


IF X <3 THEN GOSUB 1550 
IF X >3 THEN GOSUB 1630 
RETURN 

LET X = INT (RND♦2) +1 
SCROLL 
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1150 IF fl>8 THEN LET M$ = " 



1155 IF A >8 THEN PRINT "GHOUL" 
1160 CLS 

1170 PRINT AT 0.0;"YGUUE MET ";P 
T 3,0 ; M $ 

1160 SCROLL 
1135 SCROLL 

1190 PRINT AT 21,0;' HATTflCKH 
RETREAT" 

1200 INPUT B 

1210 IF B =2 AND A<6 THEN RETURN 
1220 IF B = 1 THEN GOTO 1260 
1230 SCROLL 
1240 SCROLL 

1250 PRINT "HE Blaise CHICKENS." 
1260 LET A = INT *:RN0*99) +1 
1270 SCROLL 


1230 SCROLL 
1290 PRINT 


HE HAS A POUER OF 


1300 SCROLL 
1310 SCROLL 

1320 PRINT "INPUT POUER ESI 

1330 INPUT P 

1340 LET PF=P*5 

1350 LET NP=NP-iPF/2) 

1355 IF NP <1 THEN GOTO 2110 

1360 IF PF > A THEN GOTO 1390 

1370 LET A = A - P F 

1330 GOTO 1270 

1390 SCROLL 

1400 SCROLL 

1410 PRINT AT 20,0;"YOU SURE MAS 

HED HIM.STRENGTH IS NQU ";NP 

1415 LET 3=5+1 

1420 RETURN 

1430 SCROLL 

1440 SCROLL 

1450 LET A = INT (RND+500) +100 
1460 PRINT AT 20,0;"YOUUE FOUND 
" .; A; " DESIGNS " ; B$ 

1470 LET D = D + A 

1475 LET NP =NP-10 

1480 IF D >2500 THEN GOTO I860 

1490 RETURN 

1500 SCROLL 

•1S10 SrPOLL 

1520 PRINT "YOUUE FOUND A FASH10 
N . " 

1530 LET F =F + 1 
1540 RETURN 
1550 SCROLL 
1560 SCROLL 

1570 PRINT "DOOR GUARDED.GOT A F 
ASHION ?" 

1530 IF F < 1 THEN RETURN 
1590 SCROLL 

1600 SCROLL _ 

1610 PRINT " E1^1 " 

1620 LET F =F-1 
1630 SCROLL 
1840 SCROLL 

1650 PRINT AT 20,0;"THE GUARD UE 
NT TO ADMIRE HIMSELF50 RUN IN QU 
ICK" 

1660 LET A = INT (RND *4) +1 
1670 IF A=2 THEN GOSUB 1430 
1630 IF A =3 THEN GOSUB 1500 
1690 IF A<2 THEN GOSUB 1050 
1700 RETURN 
1710 CLS 

1720 PR INT AT 3,0; 11111111111D 

rPSF^iiiT 1 iM if CL "YOU UERE KILL 
ED BY THE DREADED GHOUL */;/**< 
- + = O $"”/*<> . 

1770 PRINT 
1780 PRINT 



1795 PRIM 
1800 PRINT "YOU FOUND 
INS" 

1810 PRINT 
1820 PRINT TAB 10; 
1S30 GOTO 2030 
1845 STOP 
1910 PRINT AT 5,0 


'-'ELL DONE 



_ ; s; ^ 

iCi40 IF H : ( (NP*2) +D + (F *5) + (S * 11) 

) THEN LET H«( (5*2) +D+(F*5) +(S*l 
1 ) ) 

2050 PRINT _ 

2060 PRINT AT 21 


2070 INPUT A $ 
2030 IF A $ = "N" 
2090 CLS 
2100 GOTO 20 
2110 CLS 
120 PRINT 


THEN STOP 


TOUGH BANANA 


STRENGTH.(HA 


IHU'I 



































G UIDE your buggy over the 
planet’s surface, jumping the 
potholes and rocks where neces¬ 
sary. Press any key to make the buggy 
jump. If you fall into a hole or crash 
into a rock the game ends and your 
score is displayed. 

Jump Buggy was written for the 
16K Spectrum by Russell Wooberry of 
Farnham, Surrey. 


ig8>": LET s=s+ls 
fTTo 51 

44 IF SCREEN* <x + l,4><>" 
N GO TO 50 


j=l THEN G 


45 IF SCREEN* <x + l,5X 


THE 


THE 


1 REM USR @ MERGE LLI 

ST ) OR GO SUB VAL +W.XSTR* 

LIST <>. 

2 LET a-5+PEEK 23635+256*PEEK 
23636 

3 FOR w=a TO a+24s READ b* 

5 LET x=C0DE b*-48-(39*<b *>"l 
" >): LET y=C0DE b* <2>-48-(39* (b* 
( 2 )>"£ ")) 

6 POKE w,x*16+y: NEXT w 

7 DATA "06","cO","11","00","4 
0" , "d5","el","23","c5","01", "If" 
,"00","la","ed","bO","2b","77"," 
00","23","23","13","cl","10", "f 0 
","c9" 

10 GO SUB 9080 

13 BRIGHT Os PAPER Os BORDER O 
s CLS s CLS s GO SUB 9300 

14 OVER Os LET s=Oss DIM a*<2, 
5)s LET a*(1)=" G G G "s LET a*(2) 
= " I I I "s CLS s GO SUB 9200 

LET n=Os LET f = 15s L 


I I " 

15 INK 
ET p=43 

16 LET 

17 FOR 
0; INK 3 

18 LET 

19 LET 
21 FOR 


h=ls LET d 
i=18 TO 21 
"<32*ig8)" 
j=0 

x = 17 s LET y=3 
1=1 TO 2 
”5 AT 


PRINT AT 
NEXT i 


PRINT AT 0,11 
,Y5" ";AT 

x-1, y;" "s IF SCREEN* <x,y+5 

><>" " THEN GO TO 2Q00 

29 PRINT AT 17,0;" "s LET 1=US 
R 23760s PRINT AT x,y; INK 6;A*( 
I);AT x, y+1; INK 4;"F";AT x,y+3; 
'IF"; AT x-1 ,y; " ABODE "; AT 0,11; IN 
K 5;"SCORE="; 5 ;AT 18,0; INK 3;"( 


GO TO 50 

46 IF SCREEN* <x+l, 6 ><>" " THE 
N GO TO 50 

47 GO TO 51 

50 PRINT AT x,y; INK O 5 " 

;AT x-1,y 5 " "s LET x=x+ls PR 

1NT AT x,y; INK 6 ;a*(i);AT x,y+l 
; INK 4;"F";AT x,y+3; INK 5;"R‘; 
AT x — 1,y; INK 5;" ABODE "s LET p=3 
3s GO TO 2000 

52 BEEP . 01 ,n—5s IF J = 1 THEN 
GO TO 54 

53 IF INKEY*< >"" AND x = 17 THEN 

LET x = 16s LET c=7r LET j = ls PR¬ 
INT AT x+1 ,y; " "s LET n=10 

54 IF j=l THEN LET c=c-ls IF 
c=0 THEN LET j=0s LET x = 17s LET 

n=Os PRINT AT x-2,y;" 

56 IF RND*15<1 AND H=1 THEN P 
RINT AT 1.7,28; "H" 

58 LET d=d-ls IF d=0 THEN LET 
h = 1 

59 IF h=0 THEN GO TO 61 

60 IF RND*f >14.8 THEN PRINT A 

T 18,29; INK 3;"K J"s LET d= 6 s L 
ET h=0 " “ 

61 LET f=f+.005s NEXT is GO TO 
21 

3000 FOR i = 1 TO 100 s NEXT is PR I 
NT AT x,y; INK 0;" ";AT x-1, 

y; INK 0;" 

3005 PRINT AT 0,11; INK 5;"SCORE 
= ";ss LET a=2s LET b=4 

3006 FOR i=7 TO 3 STEP -1 

3010 OVER Os INK is PLOT 43,p+a: 

DRAW b,—as DRAW -b,-as DRAW -b, 
as DRAW b,a 

3012 FOR K=I*5 TO 1*5-10 STEP -1 
s BEEP .01,Ks NEXT Ks FOR j=l TO 

20s NEXT j 

3013 OVER Is INK is PLOT 43,p+a: 
DRAW b,-as DRAW -b,-as DRAW -b, 

as DRAW b,a 

3014 INK is PLOT OVER l;43,p+a 

3015 LET a=a+2s LET b=b+4s NEXT 
i 


3016 OVER Is PRINT AT x,y; INK 0 
;" ";AT x-1,y;" 

3020 OVER 0 

3100 PRINT AT 10,7; INK 4; FLASH 
1;"G A M E OVER" 

3120 IF INKEY*="" THEN GO TO 31 
20 

3130 GO TO 13 

9080 FOR i=0 TO 87s READ as POKE 
USR "a"+i,as NEXT i 
9090 DATA 7,15,31,63,127,255,255 
,129,0,129,195,231,254,254,255,2 
55,255,134,3,1,0,0,255,129,240,1 

2.3.128.192.96.255.255 

9100 DATA 0,0,0,192,48,*2,255,12 

9,255,126,126,60,60,0,0,0,60,102 

,231,153,153,231,102,60,56,60,12 

4,124,254,255,255,255,60,90,153, 

255,255,153,90,60 

9110 DATA 0,1,1,3,3,7,7,255,0,12 

8.128.192.192.224.224.255 
9120 RETURN 

9200 INK 2s FOR 1=0 TO 6s PLOT i 
*32,70s LET b=RND*80s DRAW 16,bs 
DRAW 16,-bs NEXT is PLOT i*32,7 
Os LET b=RND*80s DRAW 16,bs DRAW 
15,-bs 

9210 RETURN 

9300 LET x *=". 

. JUMP BUGGY 

..SINCLAIR PROGRAMS. 

. GUIDE YOUR BUGGY OVE 

R THE PLANET'S SURFACE BY JUMPIN 
G THE ROCKS AND POT HOLES. . . . 

. CONTROLS=ANY KEY. . 

.PRESS ANY KEY TO 

START. 


9310 PRINT 
P" 

AT 

0,11; 

INK 5;" 

J U M 

9315 PRINT 
G G Y" 

AT 

11,11; 

INK 5; 

"B U 

9320 FOR 1= 

■1 

TO 252s 

BEEP . 

005,1 


Os PRINT AT 21,0; INK 4;X*(I TO 


1+30)s BEEP .005,2s 
" THEN GO TO 9500 
9350 NEXT i 
9400 GO TO 9320 
9500 FOR i=0 TO 21s 
; INK 0;"<32*ig8>"s 
O 14 


IF INKEY*< >" 


PRINT AT i,0 
NEXT is GO T 
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5PiDEfi 

XNTRiES 


E XPLORE the treasure vaults in 
the lost city in search of gold. 
The vaults are patrolled by 
Spider sentries who attack any intrud¬ 
ers. To open the treasure chests you 
must touch the tops of them whilst 
taking care to avoid the spiders. If you 
wish to move on to the next vault, stand 
four steps away from the wall and shoot 
a hole through it. 

Written for the 16K Spectrum by 
Andrew Sherwood of West Bromwich, 
West Midlands. 


2 CLS : RESTORE : GO TO 4000 
5 FOR k=l TO 3: FOR j=0 TO 7s 
PRINT INK j;AT s1,s2;“ B " : BEEF 
.007,j*4: NEXT j: NEXT k: LET s 
=s + 10 

7 PRINT AT si,s2;" " ; AT 0,6;s 

8 LET si=3+INT (RND*17) 

9 LET s2=30: RETURN 

30 FOR k=l TO 3: FOR j=7 TO O 
STEP -1: PRINT INK j;AT s1,s2;" 
_C": BEEP .01,j*3: NEXT j: NEXT k 
: LET 1 i = 1 i -1: PRINT AT ml,m2;" 

";AT 0,31;li 

35 IF 1l=0 THEN PRINT AT 11,0 
; FLASH 1;" GAME OVER 

FOR j = l TO 5: FOR 
i =30 TO --30 STEP -2; BEEP . 01, i: 
NEXT i: NEXT j: GO TO 5109 
40 GO TO 5136 
1005 FOR i=1 TO 2 
1007 BEEP .0004,1*20+20 
1010 LET sy=s1: LET sx=s2 
1015 IF RND>.7 THEN LET sl=sl+( 

-1 +1NT (RND*3>>: GO TO 1030 
1020 LET sl=sl+((sl<ml)-(si>ml)) 
1030 LET s2=s2+((s2<m2)-(s2>m2)) 
1035 IF ATTR (sl,s2)=58 THEN LE 
T s1=sy: LET s2=sx 
1040 PRINT AT sy,sx;" " ; AT sl,s2 
;s$ (i) 

1045 IF sl=ml AND s2=m2 THEN GO 
TO 30 

1050 LET my=m1: LET mx =m2 

1060 LET m1=m 1 +(INKEY$="a")-(INK 

EY*="q") 

1070 LET m2=m2+ (INKEY$="p" ) — ( INK 
EY$="o") 

1080 IF ATTR (ml,m2)=58 THEN LE 
T ml=my: LET m2=mx 
1090 PRINT AT my,mx;" ";AT ml,m2 
;m$(i) 


1111 IF INKEY:f-="k " THEN IF m2<2 
8 THEM PLOT m2*8+8,(21-ml)*8+4: 
DRAW 31,0; FOR j=30 TO 40s BEEP 
.007,j: NEXT j: PRINT AT ml,m2+ 
I?" IF sl=ml 'AND s2>m2 AMD 

(s2-m2)<5 THEN GO SUB 5 
1130 IF ATTR (m1+1,m2)=57 THEN 
FOR j = 14 TO 32 STEP 3: BEEP .01, 
j: NEXT j: LET s=s+50: PRINT AT 
m1+1,m2;" ; AT 0,6;s 

1140 IF m2=31 THEN FOR j=l TO 1 
0: BEEP .03,-20: BEEP .03,-10: B 
EEP .03,0: NEXT j: GO TO 5113 
1300 NEXT is GO TO 1000 
4011 PRINT PAPER 6 ;" S P I D E 
R SEN T R I E S " 


4020 PRINT 
FIND 
ICH YOU 
F GOLD. 

S YOU CAN 
CHEST BY 
SH 1;"TOP" 

4030 PRINT 
HE SPIDER SENTRIES 
ANY INTRUDER. 

SER GUN TO DEFEND 


IN A LOST CITY, YOU 
TREASURE VAULTS, WH 
EXPLORE IN SEARCH 0 
TAKE AS MUCH GOLD A 
OPEN EACH TREASURE 
TOUCHING THE "; FLA 


PAPER 6 ; 


'BEWARE OF T 
WHO ATTACK 
USE YOUR LA 
YOURSELF. 


4040 PRINT "TO ESCAPE FROM ONE V 
AULT TO THE NEXT, SHOOT A HOLE T 
HROUGH THE WALL ON THE RIGHT 

(STAND 4 STEPS FROM 

THE WALL)." 

4050 PRINT PAPER 6 ;AT 17,11;" U 
P q ";AT 18,11;" DOWN- a ";AT 
19,11;" LEFT o ";AT 20,11;" RI 
GHT p "5 AT 21,11;" FIRE k " 

4060 PRINT 4fc); " PRESS A KEY 

TO START 

4300 PAUSE Os BEEP .5,15 


5000 FOR i=USR "a" TO USR "q"+7: 

READ j: POKE i,_i: NEXT i 
5005 DATA 0,0,0,189,255,189,129, 
129,60,60,126,129,129,129,129 
5010 DATA 129,56,56,16,56,124,18 
6,40,68,56,56,16,56,40,40,16,16 
5015 DATA 16,40,68,98,86,42,28,8 
,255,1,125,69,85,93,65,127,0,126 
,66,90,90,66,126,0 
5090 LET s=0: LET h=0 
5100 LET S *="RB": LET (n$= M CD" 

5109 IF s>h THEN LET h=s 

5110 LET ml=l1: LET v=0: LET s=0 
: LET 1i=3 

5115 CLS : FOR 1=2 TO 20s PRINT 
INK 2; AT i ,0; " Q_" ; AT i,31;"C3": N 
EXT i 

5118 PRINT INK 2; AT 1,0; "FGFGFG 

F GF G F 6FGFGFGFGFGFGFGFGFGFG " ; AT 2 

I, 0; " FGFGFGFGF G FGFGFGFGFGFG’FGFG F 
GFGFG " 

5119 FOR i=1 TO 14: PRINT INK 1 
;AT 3+RND*17,1+RND*29; " E" s NEXT 
i 

5120 PRINT INK 2; AT 6,12; " FFFFF 
FFFFFFFFF ": AT 16,12; "FFFFFFFFFFF 
FFF " ; AT 11,6; " FFFFFFFFFFFFFF " 

5130 FRINT AT 6,16;" ";AT 6,21;" 

";AT 16,16;" ";AT 16,21;" ";AT 

II, 10;" AT 11,15;" " 

5133 LET v=v+l: PRINT#0; INK 3; 

" VAULT ";v 

5136 LET s1=3+INT (RND*17): LET 

s2=30: LET m2=l 

5140 PRINT INK 3;AT 0,0;"SCORE" 

; AT 0,16; "HI"; AT 0,30; "cj' 

5145 PRINT AT 0,6;s;AT 0,19;h;AT 
0,31;1i;AT ml,1; "c" 

5190 FOR j =~20 TO 50 STEP 2: BEE 
P .01,. j: NEXT j: GO TO 1000 
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Sneak into a 

mainframe with 
your Spectrum— 

* 




and access an i 
of news, views 





us is the A 


j— 



Travel 


Simply by connecting your 
Spectrum to the telephone line, via 
the award-winning Prism VTX 5000 
communications modem, you can get 
to all the information, games and 
communication facilities held on 
viewdata mainframes. 

So, you can link into a variety of 
services, including Prestel and 
Micronet 800. Access hundreds of 
software programs-many completely 
free. Talk to fellow users. Keep up-to- 
date with all the latest national, 
international and micro news. Play 
on-screen games. Check sports 
results. Book travel and entertainment. 


Micronet 800 J Toother 

Spectrum 
users 



HU- 

Power Telephone jack-socket 


Learn a language. 

The choice is simply vast. 

Plus, your Prism VTX 5000 
allows you to communicate directly 
with other Spectrum owners. 

And now , our special offer means 
that you can do all this for iust Tll*a 
month. So complete the coupon and 
send it to us today, and we will let you 
have full details of our unbeatable offer. 

* All prices quoted refer to domestic use only. Forbusiness use the Prestel ann ' standing 
charge is £66. Therefore business users will be billed £44.50 perquarter. 
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exciting world 
fyfacts&fun! 

V> 






Swapping 



Educational software 


IS BOOKS 
it CATALOGUES 

12 CLUBS 

13 COMPUTING 

2B DENTAL PRODUCTS 

21 DIRECTORIES 

22 ELECTRICAL GOODS 

23 FL0MERSSCAR0EN8 

24 FUEL 

25 GIFTS 

2* INSURANCE 
27 JEWELLERY 


STORES OFFERING A 
SALE 

s TELEBOOK IMG INDEX 




30 KITCHENWARE 

31 HEAT 

32 MODEL RAILWAYS 

33 MOTORING 

34 OFFICE GOODS 

39 RECOROS 

40 SAMPLES 0 OFFERI 

41 SPORTS 

42 SUBSCRIPTIONS 

43 TRAUCL BROCHURE! 

44 UIOEO 
49 WINE 

RANGE OF COOOS FOR 



Shopping 


Latest news 


1 CRUISE OEMO AT WILTSHIRE RAF BASE 

2 FOUR DIE IH YORKSHIRE WOOD SWOQTIN! 

3 TORHAOOES KILL 74 IH CAROLINA 

4 THOUSANDS SUPPORT LIVERPOOL STRIKE 

5 380 ARRESTED IN LONOON PROTEST 

6 MINERS ARE HELD AT POWER STATION 

7 PICKETING EASES AT MIOLAMD PITS 

8 FIRE BOMB DAMAGES STAFFS.PIT OFFIC* 

9 FRIDAY'S WEATHER FROM UIEWTEL 282 


News 



Tele5dftuiare 

Supermarket 


Mailbox t T'softwrc? - GOTO 7 


Telesoftware 



Sport 



UJhat's On 
Theatre 
Guides 


SCOTLANO 
NORTH 

MALES 

MI0LAN08 

EAST ANGLIA 

SOUTH EAST 
GREATER LONOON 
LONOON,WEST EMI 
WHO'S NEW 


Booking 



Mailbox 


f . . . -. - . v 

FOR JUST £11* A MONTH YOU WILL GET: 

• A Prism VTX 5000 worth £99.95. 

• One year’s subscription to Prestel 
worth £20.00. 

• One year’s subscription to Micronet 
worth £32.00. 

• Free user-to-user software-normally 
retailing at £19.00. 

• Quarterly hardware and software offers. 

e Discounted software through Micronet 
(up to 20% off retail prices). 

V.. . / 


Prism Microproducts Ltd. 

Prism House, 18-29 Mora Street 
City Road, London EC1V 8BT. 

Tel: 01-253 2277 

Prestel and the Prestel symbol are trademarks of British Telecommunications. 

Please send me full information on your special offe^ ° 
to Spectrum users. 

Name: _ 


Address: 
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TURBO CHARGE 

YOUR SPECTRUM 


Outperforms any Spectrum interface 


The unique Turbo interface from Ram gives you all these 
features - and more - in one unit: 

❖ A variety of interfaces including Rom cartridges, two 9-way D plugs 
for standard joysticks, PLUS full expansion bus at rear. 

❖ Compatible with Kempston and Protek protocols. 

❖ Works with latest Quickshot Mk II auto rapid-fire joysticks! 

❖ Choice of Rom cartridge or tape cassette software. 

❖ Instant program loading with cartridge software. 

❖ Built-in power safety device - unique to Ram Turbo. 

❖ Full one year guarantee. 


Or call our credit card hot line on 02514 25252. (Access and 
Visa welcome). 

Ram Electronics (Fleet) Ltd, 106 Fleet Road, Fleet, Plampshire 
GU138PA 




24 Hr 

despatch for 

credit cards arid 
Postal orders 


Please send me: 

_Spectrum Turbo Interface^) at £22.95 

+ £1 p+p (overseas orders £3 p+p) 

_Quickshot II Joysticks) at £9.95 

(Only when purchased withTurbo-normally£12.95 + £1 p+p) 

I enclose cheque/postal order or charge my Access/Visa for: £_ 

E3S[ 



❖ Immediate availability-24 Hr despatch on receipt of 
PO./credit card details (cheques-seven days). 

❖ Incredible value-only £22.95. 

So don’t wait around - simply complete 
the coupon and send it to us today. 


Name_ 

Address 



Tel. 


SP 10 


To: Ram Electronics (Fleet) Ltd, 106 Fleet Road, Fleet, Hampshire GU13 8PA. 



J 

Trade and export enquiries welcome. 






































ABF 


/UMMER 


MAIL ORDER ONLY 

/AVIliG/ 


Programmable Interface 



The AGF Programmable Joystick Interface has established itself over the 
past year as being the only hardware programmed device that accepts ALL 
standard joysticks or trackballs — including Quickshot II with 'rapid fire' 
— for use with ALL Spectrum or ZX81 software. 

The hardware programming method employed by this product has several 
advantages over similar interfaces that require extra tapes to be loaded or 
combinations of key presses and movements of the joystick to be made 
before each game, i.e 

• Programming is not lost when power is disconnected between games. 

• Eight directional control only requires setting of the four normal 
directions. 

• Compatibility guaranteed with ALL key reading methods — machine 
code and BASIC. 

• Several interfaces can be separately programmed for multi-player 
software. 

• Low power four i.c. design allows more expansion. 

The programming leads attached to the interface make contact with 
miniature crocodile clips that give oxidisation free connections every time, 
unlike plug and socket arrangements, and they don't work loose in 
constant use. 

Keyboard operation is unaffected by this interface and it is guaranteed 
never to conflict with ANY other add-ons. 

12 month guarantee, key programming chart and a pack of ten Quick 
Reference Programming cards with full instructions are supplied. 


21.05 



p l us £1 post & pack i ng - 


RomSIot 


The new AGF RomSIot has been designed for anyone who already owns a programmable 
joystick interface, or prefers tp use the keyboard to control games, and would like to add 
the facility of ROM cartridge software to their system. 

ROM games are already available from Sinclair and in August five totally new titles are to be 
released by Parker Video Games — exclusively in ROM format. 

The advantages of this new system are instantly loading games that may have required a 
larger memory capacity if loaded by cassette. The ROM cartridge is actually a dedicated 
memory device with the program permanently stored in; ready for immediate use. 

An extra feature of the AGF RomSIot is the 'Restart' facility. Any program can be 
instantly re started or conventional machine code games cleared without the need to remove 
the power. 

RomSIot is cased with a full expansion connector for other add ons and is covered by a 12 
month guarantee. 


8.95 


onlyJL95^ 


plus 50p post & p acking - 


Interface II 

°n' y 995 



Now the AGF Interface II is even better value. Since we 
pioneered the cursor-key interface in October 1982 there 
are now over 100 games or utility programs with either the 
AGF option or cursor key controlled — that makes it 
unbeatable at this new low price. 

Still incorporating the all important rear expansion con¬ 
nector which means other peripherals can be connected at 
the same time i.e Ram Packs, Printers, Speech Units etc, 
and of course the key replication principle used guarantees 
this will never conflict electrically with any other add-ons. 


Quickshot II 


&50 



Quickshot 


SEND TO (NO STAMP NEEDED): AGF HARDWARE, DEPT SP FREEPOST, BOGNOR REGIS, W. SUSSEX P022 9BR 
Please tick: 

□ I enclose a cheque/postal order payable to AGF Hardware for £. 

□ Please charge my Access/Barclaycard Account No. 

Signature. (Telephone orders (0243) 823337) 

FROM: MR/MRS/MISS 



ADDRESS: 


□ Please send information on . 

Please allow up to 28 days from receipt of your order although we normally despatch from stock 
within 7 days. All AGF products are guaranteed for 12 months and are supplied on a 14 day money 
back undertaking. AGF Hardware, Bognor Regis, West Sussex. Telephone: (0243) 823337 


QTY 

ITEM 

ITEM PRICE 

TOTAL 

















ZX81 □ ZX SPECTRUM □ Please tick 

FINAL TOTAL 


MM OVERSEAS PRICES ON APPLICATION 

VKA 

wmmm DEALER ENQUIRIES WELCOME ^ 
















































M ABEL IS A friendly, 

though sometimes tempera 
mental, cow and it is your job 
to milk her. This is not as easy as it 
sounds because if Mabel becomes upset 
she flicks her tail around. If you are 
caught by her tail the game ends. When 
you have taken all the milk from Mabel 
you must return home and empty your 
pail before setting off again. 

Mabel’s Revenge was written for 
the 16K ZX-81 by S. Foster of Walsall, 
West Midlands. 



4- CL5 

5 GOSUB 3000 
5 CL 5 

7 LET L =3 

8 LET S=0 

10 CL5 

11 FOR 0=18 TO 20 


hT 18 ,10 ;G 


15 LET M = J NT .iRND + 10) +1 
20 IF H i 5 THEN LET M=5 
30 LET X =15 
40 LET Y =24 • 

50- LET A=INT (RND+50) +5 
55 PRINT AT IS : 1; SGhLLONS- 


80 PRINT RT 'X ,Y; “ 'M 
35 PRINT RT 12.15 ; !: 

90 LET R=R-1 

100 LET Y =Y 4 (INKEY % = !! 3 " AND 
7) - l INKEY$ = ! 5- : AND Y >11) 

113 IF A =3 THEN GOTO 4353 
123 IF X =15 AND Y = 14 THEN PRINT 
AT X.Y-i; 

121 IF X =15 AND Y =27 THEN PRINT 



122 IF X =15 AND 
AT 11.13: 

124 IF X =15 AND 
AT 8 10; “GO AND 

125 IF X=15 AND 
AT 3=13;“ 

133 IF X =15 AND 
$= -M i: THEN GOSUB 
930 GOTO 83 

1030 PRINT AT II 

1031 PRINT AT 12 
1002 PRINT AT 13 

1033 PRINT AT 14 

1034 PRINT AT 15 
1010 RETURN 
2030 IF X =15 AND 


Y =27 THEN PRINT 

Y =27 THEN D RINT 
GET SOME MORE" 

Y <28 THEN PRINT 

Y < =13 AND INKEY 


THEN GOTO 302 


w 


Y > =17 THEN GOTO 

PRINT AT 3,17;‘GOTCHA 
PRINT AT 11,15;“ “ ; AT 12,14 

FOR N=1 TO 23 

IF Y = 13 THEN PRINT AT 15,13 


r 15,14;“ 


AT 14,14 

14;“ “;A 


PRINT AT 
AT 15,14, 

14; " " ; hT j. , j. ■+•, 

PRINT AT 11 = 14; " |“;AT 12,14 
AT II=14;“ “;AT 12=14;" “ 
NEXT N 

PRINT AT 11,15; , ;AT 12,14 

IF Y =13 THEN PRINT AT X,Y;“ 
LET A =A-1 


2090 PAUSE 100 
2095 GOSUB 5300 
3030 IF INKEY $ = *' 

0 

3010 RETURN 

3020 IF X =15 AND Y<=13 THEN GOTO 
3035 

•■»=v?a ofTIIDki 

3035 IFH<=1 THEN GOSUB 4533 
3336 IF INKEY $ = “M" THEN LET M=h- 
1 

30.37 IF INKEY$ = "M" THEN LET G=G + 

-1 - 

3040 PRINT AT» 7=17;“MILKING";AT 

7,17;" 

3041 PRINT AT 14.12=“ “.AT 14,12 

;“ Li- 

3045 IF X =15 AND Y > =13 THEN GOTO 
3083 

3355 LET A =A-i 
3065 IF A =0 THEN GOSUB 2333 
3370 IF M -i =1 THEN PRINT AT 11,19 
;“EMPTY";AT 7.17;" ";AT 14 

,12;“U" 

3375 IF M < =1 THEN GOSUB 4533 
309© RETURN 

4330 IF Y< =19 THEN PRINT AT 3.5; 
“NEARLY HAD YOU THAT TIME" 

40-10 GOSUB 6003 

4350 IF Y > =14 THEN GOTO 4333 

4350 IF Y < =15 THEN GOTO 2333 

4533 LET G=G 

4510 LET Y =Y +2 

4515 PRINT AT X,Y-1;“ “;AT 15.13 
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4-520 -FT m = INT i PND*10) +1 
4-521 IF M<5 THEN lET h=5 
4-525 PRINT hT 7,17;" 

4-530 GOTO 30 

5000 i_5T L =L.-1 

5001 IF L=0 THEN GOSUE 700O 
5005 Ci_S 

5010 PRINT AT 5,3; "MABEL HAS GOT 
Y0U . , . ; AT 5,2, ’ Y0UR SCORE-GALL 
ONS-WAS : !i ; G 

5015 If L=1 THEN PRINT RT ■ 

DU HhUE-Y L; LIFE LEFT" 

5020 IF L >1 THEN PRINT RT 7,2. "Y 
OU HAUE- " : L , lIUES J.EFT 
r-025 IF G ;• =10 THEN PRINT RT 10,2 
"YOU HRUE DECREASED YOUR SCORE" 
;hT 12,2:• BY TEN GALLONS" 

*026 IF G > =10 THEN GOTO 506O 
5023 IF G <10 AND G>0 THEN LET 0 = 
INT CRND*G■ 

5029 IF G <10 AND G>0 THEN LET G = 
G - 0 

5030 PRINT AT 10.2;"YOU HRUE DEC 
PHASED YOUR SCORE";AT 12,2:" BY 

“;Q;" GALLONS" 

5031 PRINT AT 15,2;"YOUR SCORE I 

S NOW:";G 



5032 PAUSE 250 

5010 CLS 

5050 GOTO 11 

5050 G =G- -0 

5070 GOTO 5031 

5010 PRINT AT 12 ,15, ■ 

5020 FOR N =1 TO 10 
50.30 PRINT AT 13,14; "% 

I , AT 15,14; | ;At 13 

t 14 ,414; " "; AT 15 14:" 

6040 PRINT AT 11 14 
t* AT 11,14 
6045 PRINT -- 
5050, NEXT N 
5050 PRINT AT 


; AT 


AT 12 

U" " 


AT 

14, 


AT 

14; 


, 14 

r .; A 


12,14 


AT 12,14 


fn gpsfaeR 


5 

CLS 


10 

LET 

hs =0 

15 

GO 

SUB 9000 

20 

GO 

SUB 8000 


REM 

*** VARIABLES *** 

26 

LET 

score=0: LET dives=10 

30 

LET 

a=1: LET s=20 

•«.* W 

LET 

d = 19: LET f =28: LET g=l 

LET h- 

=6 

40 

REM 

*** MAIN LOOP *** 

45 

FOR 

2=0 TO 31 


50 PRINT AT 2,2; INK 2; ^A" 

55 PRINT AT 18,2; INK 1; PAPE 
R 5; ‘MS" 

60 BEEP .002,2 
65 NEXT z 

70 PRINT AT d , -f ; INK 2; "CD "; 
AT d, g 5 INK 2; "CD AT.d,h; IN 

K 2; "CD ! * 

75 PLOT 0,9: DRAW INK 1;255,0 

80 PRINT AT 21,3; INK 3;"SCOR 
E=";score; AT 21,21; INK 3;"DIVE 
S=";dives 


. 11,15; 

5055 PRINT 3,5.;" 

5070 LET A =INT iRND*30) 4-5 
5030 GOTO 50 
7000 CL5 

•005 PRINT AT 5.0:"YOU HRUE LOST 
ALL OF YOUR LIUES" AT ;=; r : ■■vni iS 
SCORE WAS: 1 ;G 

701-0 PR INT AT 12.3 , " A N OTHER G 0 7 

rv/Nj " 

7020 INPUT A $ 

7030 IF INKEY % >"" THEN GOTO 703 
0 

7040 IF A$="Y" THEN GOTO 6 
7050 IF As . :• "Y" THEN STOP 



?H0 

IENDLY COW" 

3025 PRINT AT 4,1;"""01 
"" IN HEP ~1ELD\ BUT" 

3030 PRINT AT 5,2; "SHE 
LE TEMPERAMENTAL" 

3040 PRINT PT 8:2;"TRY AND 
S HUGH MILK FROM" 

3050 PRINT AT 9,2;"HER AS YOU CA 
N, BUT WATCH OUt‘ AT IS 5;"FOR H 
ER SWOOSHING TAIL" 

3055 PRINT AT 11.1; "TAKE YOUR MI 
LK BACK TO YOUR DEN" 

3 S5 S R RINT AT 13,2;"J 5 B K E r5 5-3 
TO MOUE YOUR MAN";AT 14,3;"WITH 
THE BUCKET" 

30.65 PRINT AT 16,2: "WHEN MABELS 
TAIL ""TURNS"" YOU";AT 17,3;"WIL 
L ""FREEZE-- WITH FRIGHT" 

3070 PRINT AT 
MILK" 

3030 PRINT AT 
Y TO START" 

3090 IF INKEY $ = " 1 
3000 GOTO 5 
9100 SPUE "MABEL ; 

•9110 GOTO 1 


3; -USE r*i TO 
13,6;"PRESS ANY KE 
THEN GOTO 8090 



U SE KEYS 1 and 2 to move the 
Kingfisher, and 0 to make him 
dive. Ten points are scored for 
each fish the kingfisher catches, so make 
the most of the ten dives you are given. 

Kingfisher was written for the I6K 
Spectrum by Duncan Larkman of 
, Ormesby, Middlesbrough. 
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85 PRINT AT a,s; INK 4; 11 E " 

90 LET s=s+< INKEY# = "2" AND s 
<29)-( INKEY# ="1" AND s>0) 

95 IF INKEY# = ,, 0" THEN PRINT 
AT a,s;" ": BO TO 200 

100 BEEP .003,0 

105 LET f=f-l: IF f=0 THEN LET 
f =29: PRINT AT 19,1;" " 

110 LET g=g-l: IF g=0 THEN LET 
g=29: PRINT AT 19,1;" " 

115 LET h=h-l: IF h=0 THEN LET 
h=29: PRINT AT 19,1;" 

120 BO TO 70 

200 PRINT AT d,f; INK 2; "CD "; 
AT d, g; INK 2; ".CD "; AT d,h; IN 
K 2;"CD " 

205 PRINT AT a,s; INK 4;" F " 


206 LET s=s+( INKEY# = 

. ’» '2 » * 

AND s 

29)-< INKEY# ="1" AND 

s >0) 


210 LET a=a+l 

215 LET f =f-1: IF ,f=0 

THEN 

LET 

f=29: PRINT AT 19,1;" 

II 


220 LET gag-1: IF g=0 

THEN 

LET 

g=29: PRINT AT 19,1;" 

II 


225 LET h=h-l: IF h=0 

THEN 

LET 

h=29: PRINT AT 19,1;" 

II 


230 PRINT AT a--l,s;" 

II 


235 PRINT AT 2,s; INK 

2; ", 

AAA" 


240 IF a=19 THEN PAUSE 5: BO T 
0 300 

245 BEEP .003,0 

250 PAUSE 3 

255 BO TO 200 

300 LET dives=dives-1 

305 IF dives=0 THEN SO TO 400 

310 PRINT AT 18, s; INK 1; "B_" 

315 IF s+l=f OR s+l=f+l OR s+l = 
g+1 OR s+l=g OR s+l=h+l OR s+l=h 
THEN LET score=5core+10 
320 PAUSE 10: CLS : BO TO 30 

400 BEEP .3,12: BEEP .3,7: BEEP 
.3,-8: BEEP .05,12: BEEP .5,5 

401 CLS : PRINT AT 0,10;"HARD 
LUCK!!!": PRINT : PRINT "You sco 
red:";score 

405 IF score>hs THEN PRINT AT 
5,5; FLASH 1; INK 5;"NEW HIBHES 
7 SCORE": LET hs=score 
410 PRINT AT 8,2;"THE HISHEST 
SCORE IS:";hs 

420 LET dives=10: LET score=0: 
PAUSE 200: CLS : SO TO 30 
8000 REM *** INSTRUCTIONS *** 
8005 PRINT AT 0,9;"KINS FISHER" 

; AT 0,9; OVER 1;"___" 

i 

8010 PRINT AT 2,0;"The object o 
•f the game is to collect as m 



any fish as possiblein ten dives 
. You are the kingfisher a 

t. the top of the screen. " 

8015 PRINT : PRINT "Keys: l=Righ 
t. 2=1 eft 0=dive" 

8020 PRINT #1;"PRESS A KEY TO PL 
AY"; PAUSE 0: PAUSE 0: CLS : BEE 
P 1,15: RETURN 
9000 REM *** SRAPHICS *** 


9005 FOR a= USR "a" TO USR "f"+ 

7 


9010 READ q 
9020 POKE a,q 
9030 NEXT a 

9040 DATA 255, BIN 10111101, BIN 
<:> 1000010, BIN 00011010, BIN 101 
00010 , BIN 00100100 , BIN 1101101 
1,255 

9050 DATA BIN 00011100, BIN 001 
11000, BIN 01111100,255,255,255, 

er /"jnrcr 

w \~J if xi \J U 

9060 DATA BIN 00000001, BIN 000 
00011, BIN 00001111, BIN 0001101 
1, BIN 00011111, BIN 00001111, B 
IN 00000011, BIN 00000001 
9070 DATA BIN 10000000, BIN 111 
00011, BIN 11110110, BIN 1111110 
0, BIN 11111100, BIN 11111100, B 
IN 11110110, BIN 10000011 
9080 DATA BIN 00011100, BIN 001 
10100, BIN 00011100, BIN 0111111 
1, BIN 01111111, BIN 01111111, B 
IN 01001001, BIN 00011000 
9090 DATA BIN 00111100, BIN 100 
11001, BIN 11011011,255,255, BIN 
00100100, BIN 00011000, BIN 000 
1 1000 

9100 RETURN 
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10 PAPER 1: INK 7: BORDER 1: C 
LS 

20 FOR n=USR "a" TO USR "r"+7: 
READ a: POKE n,a: NEXT n 
30 DATA 7,15,15,31,31,15,7,7,1 
28,192,192,224,224,192,128,128,3 
,3,7,7,63,127,239,207,0,0,128 
40 DATA 128,255,255,192,192,20 
7,207,207,207,111,111,15,15,192, 
192,192,192,192,192,192,192 

50 DATA 15,15,15,15,12,12,12,1 
2,12,24,24,24,24,24,56,248,192,9 
6,96,96,96,96,112,124,48,48,96 
60 DATA 19.2, 128,0,0,0,0,0,0,12 
,252,240,0,O,O,6,O,48,48,48,0,0, 
0,0,0,7,12,14,6,131,0,0,0,129 
70 DATA 195,99,35,187,0,0,240, 
240,216,255,254,240,199,127,63,6 
3,15,0,0,0,221,254,255,255 

80 DATA 254,0,0,0,224,192,192, 
128,0,0,0,0 

90 PRINT PAPER 2; INK 7;AT 9, 
0;" TRY TO HIT AS MANY BIRDS AS 
POSSIBLE WITH YOUR 20 STONES 
PRESS ANY KEY TO THROW STONE 
H : FOR n=20 TO 0 STEP -.25: B 
EEP .005,n: NEXT n: FOR n=0 TO 2 
00: NEXT n: CLS 
100 LET f=0: LET st=20 
110 LET k«0: LET x = 16: LET b=0: 
CLS 

120 PRINT AT 21,0; PAPER 6;" 

130 PRINT AT 16,25; INK 7;"AB"; 
AT 17,25;"CD”;AT 18,£5; "EF ";AT 1 
9,25;"GF";AT 20,25;"HI" 

140 LET a=INT <RND*6>+2 
150 PRINT AT 0,0; PAPER 2;" BIR 
DS HIT= STONES LEFT= 

160 PRINT PAPER 2;AT 0,ll;f;AT 
0,28;st;" " 

170 PRINT AT 17,27; "K." 

180 IF st=0 THEN GO TO 310 
190 IF INKEY*<>"" AND k=0 THEN 
GO SUB 250 

200 IF k=1 THEN GO SUB 250 
210 IF k=0 THEN FOR n=l TO 5: 
NEXT n . , 

220 PRINT AT a,b; INK (RND*2>+4 



B IRDS pass in front of you on a 
side stall at a fairground. You are 
given twenty stones by the fair¬ 
ground worker and have to throw the 
stones at the birds. Points will be 


awarded according to the number of 
birds hit. 

Side Show was written for the 16K 
Spectrum by Graham Creasey of Ash¬ 
ford, Kent. 


MNO" ; AT a+l,b;" PQR" 

230 LET b=b+l: IF b=27 THEN PR 
INT AT a,b;" ";AT a+l,b;" 

M : LET b=0: GO TO 140 
240 BEEP .001,50: GO TO 160 
250 PRINT AT 17,27; 11 JM*: LET k~l 
: PRINT AT x,27; INK 3;"L_": LET 
x1=x: LET x =x-1: IF x=0 THEN PR 
INT AT x1,27.;" M : LET x=16: LET 
<3t=st-l: LET k=0: RETURN 
260 IF SCREENS <x,27><>" " THEN 
GO TO 290 

270 PRINT AT xl,27;" ; AT x,27; 

INK 3; ‘M" 


280 RETURN 

290 FOR n-~ 10 TO 10: BEEP .005, 
n: BEEP .005,n*2: NEXT n 

300 LET -f =-f+ 1: LET st=st-l: GO 
TO 110 

310 BEEP .5,-15: BEEP .5,-10: B 
EEP .5,-5: BEEP .5,-5: BEEP .5,- 
10: BEEP .5,-15 

320 CLS : PRINT AT 0,0;"You hit 

"birds with your.20 ston 

es. " 

330 PRINT AT 5,0; INK 5;" PRES 
S ANY KEY TO PLAY AGAIN PAUS 

E 0: BEEP .05,-10: RUN 



A RANDOM asterisk will move 
from the left of the screen to the 
number opposite it on the right. 
The asterisk takes about a second to 
reach the number and you must have 
your finger pressed on the correspond¬ 
ing number on the keyboard before it 
does so. The game begins again if the 
asterisk arrives first, and one point can 
be gained for each number pressed. 

Number Blast was written for the 
IK ZX-81 by A West of Dolphinholme, 
Lancaster. 


EaoVo 12 

30.PRINT RT D,3;" 


40NEXTD 
50 FOR R = 1 TO 9 
60 PRINT RT A, 4;" ;TRB 25; R 
70 NEXT fl 

150 LET B-INT (RND*9)+1 
200 LET S*S+1 
210 FOR 0*5 TO 23 
220 PRINT RT B,C;"«*" 

230 NEXT 0 

500 PRINT RT B,C;"I";RT 11,13;' 
oCORE : ";S;" " 

510 IF INKEVSaSTR* B THEN GOTO 
150 

520 PAUSE 300 
530 RUN 
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UN INTO the flashing dia¬ 
monds on each level and the 
Scaffolding will appear. Climb 
the scaffolding to the next level and 
continue this procedure to the top of the 
screen where you will be able to rescue 


your maiden before the ghost reaches 
her. If the scaffolding does not appear it 
may be underneath the diamond. Use 
keys O, P and Z to play. 

Written for the 16K Spectrum by 
Paul Gibson, of Nuneaton, Warks. 


1 LET q=20 

2 GO SUB 150 

3 FOR f=21 TO 3 STEP -2 

4 INK 2: PRINTv AT f,0;"(32*i 
_X) NEXT -f 

5 LET g=0 

6 INK 3: PRINT AT 2,29; CHR* 
( 147 ) 

10 LET a=0 
20 LET b=20 

30 LET c= INT ( RND *15+1)*2 
40 LET d= INT ( RND *15+1)*2 
50 LET e=0 
60 FOR f=0 TO q 
80 INK 6: PRINT AT b,a; CHR* 
(144): INK 5: PRINT AT b,c; CHR 
* (146): INK 4: PRINT AT 2,g; C 


HR* (145) 

90 PRINT AT b,a;" " : PRINT A 


T b , c; " 

": PRINT AT 

2,g;" 

" 

100 IF 

INKEY* ="p" 

THEN 

LET a 

=a+1 

110 IF 

INKEY* ="o" 

THEN 

LET a 


=a—1 

120 IF a=c THEN PRINT AT b,d; 
"H" 

125 IF g=28 THEN CLS : PRINT 
AT 11,0;"He Now Has Your Maiden" 
: STOP 

127 IF b=2 AND a=29 THEN CLS : 
PRINT AT 1,1,0; "You Have Rescue 
d The Maiden": PAUSE 100: LET q= 
q—3: GO TO 3 

130 IF INKEY* ="z" AND a=d THE 
N LET b=b-2: GO TO 30 
135 IF -f = q THEN LET g=g + l: GO 
TO 60 

140 LET -f =f+ 1: GO TO 80 
150 PAPER 0: BORDER 0: INK 7: C 
LS 

200 FOR f=0 TO 3: FOR g=0 TO 7: 
READ a: POKE USR CHR* (144+f) 
+g,a: NEXT g: NEXT f 
210 DATA 28,28,8,62,93,20,20,54 
220 DATA 28,62,42,107,127,127,1 
09,73 

230 DATA 60,66,129,66,36,24,O,0 
240 DATA 28,28,8,62,93,60,127,3 

6 

250 RETURN 

300 SAVE "sea-fold" LINE 1 




and 


entertaining 


The most complete, compulsive 
football management game everl 
*4 divisions ‘FA Cup 'European Cup 'European Cup- 
Winners' Cup ‘Replays ‘Promotlon/Releaatlon 
‘Transfers ‘Suspensions ‘Injuries ‘Substitutes T Name 
team ‘Team selection ‘Name players ‘Choose/change team formation 
‘Weekly league tables ‘Fixtures/Results table ‘Reserve squad ‘Spy on other 
clubs ‘ Mlnute-by-mlnute goal facts 

Check with your retailer, clip the coupon or phone your Access 
number. All orders posted within 24 hours. 

PEAKSOFT, 48 QUEEN STREET, BALDERTON, NEWARK, NOTTS. Tel: 0636 705230 
Rush me The Boss for my CBM64/48K Spectrum/46K Atmos. I enclose a cheque 
or P.O. 

Name.. 


Address. 


ADAPTED FOR 48 SPECTRUM 
FROM THE POPULAR T.V. SERIES!!! 



BLOCK-BUSTER is an exciting quiz game for ONE or TWC7 players 
and will appeal to a wide range of ages and skills with nine levels 
of play against the clock. The game tests speed of recall involving 
anticipation of the question as it unfolds' across the screen and 
speed of response dependant on the level of play. 
block buster is supplied with the FIRST ADDITIONAL question 
tape FREE to maintain the challenge of the game. Now available 
at good computer shops or direct with cheque/P.O.for £5.95 
inclusive. ACCESS and VISA orders taken on our 24 Hour Hotline. 


COMPUSOUND 

DEPT SP10, 32-33 LANGLEY CLOSE, REDDITCH, WORCS B98 OET 
TELEPHONE (0527) 21429 (21439 24 Hr. HOTLINE) 
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mmim srnnmn 


T HE GOVERNMENT are 
building a high voltage power 
generator to prevent you, the 
fearsome enemy, from landing your 
Martian craft. The parts for the gener¬ 
ator are carried over the bridge on 
tanks. To prevent the tanks reaching 
their destination you have to bomb 
them through the gaps in the force field. 
When the tanks have placed all the parts 
under the arches in the bridge you must 
bomb the vehicle holding the power 
supply or you will be doomed. 

Government Generator was writ¬ 
ten for the 16K ZX-31 by John Wood of 
Wednesbury, West Midlands. 


210 RETURN 

300 FOR G=1 TO 16 STEP 3 

301 PRINT RT IS = F ; R $ :RT 5 

302 LET F =F + i ' 

303 IF F =23 THEN GOTO 96 

30 5 PRINT RT G.X+2: ) 

.. 3 ®7 J- PEEK (PEEK 16398+256+PEE 
K 16392J =131 THEN GOTO 34-0 
309'LET L=PEEK (PEEK 163^3+256^ 
P\jEEK 163995 ~ ~Y 

'310 j!- L < >0 RND L < > 3 RND 
THEN GOTO 350 
315-PRINT "V" ;RT G,X+£ 

320, NEXT G 
325 'PRINT RT 16 . X+S 
wlfcJBETURN 
34-0 PRINT RT 


F5$ 


L < >57 


602 STOP 
615 LET X$ = "l 


"SCORE O0O0O 
: 5 J RT 21,0.; 


THEN GOTO 3 
THEN GOTO SOO 


"T" 


G , X+2 


’; RT G,X+2 


a :RT 20=31; 

50,31; "g" 


£ LET H =0 

3 GOSUE 1000 

4 LET S=0 

5 LET R 
5 LET 5 
7 LET C 

^0 LIST X^13 
15 LET 0=27 
20 PRINT RT 16=0 


>-0 


TTTTTTTTTT' 



34-5 RETURN 

350 LET S =5 + 75 

360 FOR 1=1 TO 10 

370 PRINT RT 15 . F ; ; AT IF., 

V 9 m 

360 NEXT I 

^39 0^ PR INT RT 15, Fj " 11 ; RT 16, 

393 IF L=CODE \ OR L=OODE 
OR L =CODE “ 8 " THEN GOTO 4-O0 

394 GOTO 75 

400 LET 5=5+1000 

405 LET C=F 

406 LET Y=17 

407 FOR G =10 TO O STEP -1 

:CHR* P lfK P 2 T C - 13 ' C:CHR * GiCHR * G 

409 NEXT G 

410 FOR G =14 TO 0 STEP -1 

, 4 -SS.. p ?f N I PT G-1,C-1.; "V; TRB Y + 

1; V ;hT G, C ; " ; TRB Y ; " " 

430 LET 0=0-1 
440 LET Y =Y +1 
450 NEXT G 
455 PRINT RT 6,0 ; " 

460 FOR 6=0 TO 14 
470 PRINT RT G,X+1; 

• X; " JL " ; RT G+2 , X ; 


466" IF 5 > H THEN LET H=S 
437 PRINT RT 4,5;"HIGH 00000 
HT 4,16—LEN STR$ H:H 
490 IF INKEY$="Y" 

495 IF INKEY $ = *' N " 

496 GOTO 490 
503 bUbuB 615 

501 FOR J=1 TO 10 

502 PRINT RT 20 .0 
a RT 20=0; "g" ; RT 
50.3 NEXT J 

510 PRINT RT 20=X _ 

320 FOR G = IS TO 0 STEP _i 
530 PRINT RT G +1,X-1 

G,X; "“^^““rt^G 
540 NEXT G 
550 FOR G =1 TO F 
560 PRINT RT 0,X 
,IWI ";AT 0 , X; ** 

1-8 " iHT 0 , X; “ 

570 NEXT G 
530 PRIHT RT 0=11: 

390 GOTO 465 
500 CL5 

601 PRINT RT 11,9; 


502 STOP 


- 1 ; 


G, X; 
, X; **■ 


.11 * 81 ; PTT 0 ,X 
1-1 RT 0 , X.; " 



m*F mm 


35 PRINT’ RT 20,0: 


I^NT Hl^ F~0 

print’ A* 

_~?g PRINT "j 

75 FOR F =0 TO 2 

76 LET 0$=0$+0$ 1.1) 

77 LET C$=C$(2 TO ) 
76 PRINT RT 10 = 0; C 

_ a HT 0 , X; ; 

SO IF INKEY$ = " 0 " 


475 NEXT G 
460 PRINT RT 0, 


" .; TRB Y; ■ 


, RT 20,31,.; 


jm* "; RT 1, X 

THEN GOSUB 30 

65 PRINT RT 15,F.;A$;AT 16 = F;B$ 
20 LET X =X +(INKEY$ = " 6 " RND X<2 
~ 1NKEY $ =' ‘ 5'' RND X > 1) 

95 NEXT F 

IS.aa;- " ; ST 16 

27 ii- 0=37 THEN GOTO 500 
23 PRINT RT 20 = 0 ; " U " ; RT iq , q 

' 9? LET 0=0-6 
100 1 1 - O<:0 ; HEN GO SUB 200 

110 GOTO 75 

200 LET R$ = " 

201 LET 5$ = ••'. 

202 LET 0=37 


4S5^PRINT^RT^2,5; "SCORE 00000" 

437 PRINT RT 4,5;"HIGh' _ 00000" ; 
RT 4,16-LEN STR$ H;H 
490 IF INKEY*="Y" THEN GOTO 3 

INKEY*="N" THEN GOTO 600 
49b GOTO 490 

500 GOSUB 615 

501 FOR Jsl TO 10 

502 PRINT RT 20,®.;"B";RT 20,31; 
B";RT 20,0; "fi" ;RT 20,31; "B" 

503 NEXT J 
510 PRINT RT 

520 FOR G =16 TO 0 STEP -1 
530 PRINT RT G+1,X-1;" 

G,x; '^^";AT G,X,"^&" 

540 NEXT G 
550 FOR G =1 TO 5 
560 PRINT RT 0,X; 

■ ,IM« " :P > T 3 , X; "' 

1-T “ ; RT 0 , x; " 

570 NEXT G 
580 PRINT RT 0,11 
590 GOTO 435 

600 CLS 

601 PRINT RT 11,9;" 


623 FOR G =LEN X $ TO < 1- STEP -1 

630 PRINT RT 20=M-1; X$ (M '1 

631 LET H=M — 1 

635 FOR P =1 TO 1 
540- NEXT P f 

645 NEXT G 
650 RETURN 
1000 CLS 

; s T ■ 3 o 0 ■:: 

I rrt OB.JEuT Or THIS GRME IS TO 
TRY TO LRND YOUR flRRTIRN SHIP 
2H EPP I H -HOUEUER,THE GOUERMENT 
HH3 333N YOU COMING= RND IS 
-hl-i-irSl-’G h HIGH-U0LTRGE PQLSEP 
SLLljtFRJOR, THE PR RTS OF WHICH RRE 
LHRRJ.EL OUER R BRIDGE ON TANK?., 

,”TH3 LONGER YOU CRN DELAY T*E 
TANKS, BY BOMBING THEM THROUG 
* _ FHt GAPS_IN THE FORCE-FIELD. 
j_H3 HIGHER YOUR SCORE will BE. LiH 
Si* 0LL the parts hrue been plrc 

3L> 3ENEATH THE ARCHES YOU MUST 
4-bI 19 BOMB THE VEHICLE HOLDING 
r*E HOUEH SUPPLY TO ENABLE YOU T 
U LRND,Oh ELSE YOU RRE DOOMED. 


TNT RT .21,5; 


,11*11; RT 0 , 
I -1 " ; RT 0 , X 


1030 IF INKEY$< >"C “ THEN GOTO 10 
1040 CLS 

1050 PRINT RT 10 = 11: - 
RT 11,11; "3""RIGHT" 

r;RT 21=5; : 


LEFT" 


TO 1060 
1070 CLS 
1060 RETURN 
9996 SAVE "U* 
9999 RUN 


$ < >CHh$ 118 THEN GO 
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10 LET hs=0s LET q=50001s LE 
T w=50010: LET e=50068: LET r=50 
070 

20 GO TO 80 

30 POKE q,8: LET o=USR w: POKE 
q,9s LET o=USR w: POKE e,5: LET 
o=USR r: POKE e,6: LET o=USR r: 
POKE e,5s LET o=USR r: POKE e,6 
s LET o=USR rs POKE e,5: LET o=U 
SR r: POKE e,6: LET o=USR r 

40 POKE q,ll: LET o=USR w: POK 
E q, 12: LET o=USR ms POKE q,lls 
LET o=USR m: POKE q,12s LET o=US 
R w 

50 POKE e,2: LET o=USR r: POKE 
e,3: LET o=USR r: POKE e,2s LET 
o—USR r: POKE e,3s LET o=USR r 
60 POKE e,2: LET o=USR r: POKE 
e,3s LET o=USR r: POKE e,2: LET 
o=USR r: POKE e,3s LET o=USR r 
70 RETURN 

80 BORDER Os PAPER Os INK 7: C 
LS : PRINT AT 10,9; FLASH 1;"PLE 
AS.E WAIT" 

90 RESTORE 100s FOR n=50010 TO 
50066: READ a: POKE n,a: NEXT n 
: FOR n=50070 TO 50126: READ as 
POKE n,as NEXT n 
100 DATA 58,81,195,7,7,7,71,62, 

175.152.50.81.195.30.8.205.119.1 
95,58,81,195,61,50,81,195,29,32, 
243,201,22,32,205,137,195,203,30 
,35,21,32,250,208,205,137,195,20 
3,254,201,58,81,195,71,14,0,205, 

170.34.201 

110 DATA 58,148,195,7,7,7,71,62 
,175,152,50,148,195,30,8,205,179 
,195,58,148,195,61,50,148,195,29 
,32,243,201,22,32,205,197,195,20 
3,22,43,21,32,250,208,205,197,19 

5.203.198.201.58.148.195.71.14.2 

55.205.170.34.201 

120 RESTORE 130: FOR n=USR "a" 
TO USR "t"+7s READ a: POKE n,a: 
NEXT n 

130 DATA 0,0,0,0,0,3,7,15,126,1 
26,126,126,126,126,255,255,0,0,0 
,0,0,192,224,240,24,60,60,60,126 
,126,126,66 


140 DATA 0,2,7,13,27,52,108,208 
,3,7,15,31,62,124,120,48,176,64, 
192,0,0,0,0,0 

150 DATA 56,56,40,40,68,68,130, 
130,130,130,254,254,254,254,254, 
254,126,255,126,255,255,255,195, 
247,247,215,199,255,255,251,243, 
126 

160 DATA 0,6,3,25,12,102,51,25, 
0,0,0,428,192,64,192,128,15,6,0, 
0,0,0,0,0,192,224,112,56,28,14,6 
,0 

170 DATA 0,0,0,15,9,11,14,14,0, 
0,0,240,254,241,113,242,15,15,15 
,15,7,112,63,15,212,152,240,240, 
224,14,252,240 

180 DATA 255,189,231,129,129,23 
1,189,255 

190 CLS : PRINT AT 0,0; PAPER 1 
; INK 7; BRIGHT. 1;" K I T C H E 
N CAROUSEL" 

200 PRINT AT 4,0; INK 6;" Shoot 
at the items -from the kitche 
n that are crossing the screen 
, trying to score as many points 
as posssible with your limite 
d bullet supply." 

210 INK 5: PRINT '"POINTS:"'' I 
NK 3;" JE" , "H_" ' "FG - 5 pts","I_ 
- 10 pts" 

220 INK 4: PRINT ' "J","LN.K 

- 10 pts","NO - 15 pts" 

230 INK 5: PRINT '"PQ"'"RS 
25 pts" 

240 PRINT AT 21,0; INK 7; PAPER 
2;" PRESS ANY KEY TO PLAY 

": PAUSE Os BEEP .05,10: 

250 CLS s PRINT AT 21,0; INK 1; 
PAPER 5; "TTTTTTTTTTTTTTTTTTTTTT 
TTTTTTTTTT";AT 0,0; PAPER 2; INK 
7;" SCORE= HI= BULLETS= 

260 LET -f =0: LET y=12: LET s=0: 
LET b=20s LET c=19 
270 INK 5: PRINT AT 2,0;" PQ 
PQ PQ PQ PQ PQ PQ RS 

_RS RS RS _RS RS. RS" 

280 INK 3s PRINT AT 5,0;" LM 
LN LM LM l_M LM NO 


NO NO NO NO NO " 

290 INK 4s PRINT AT 8,0; " jj Jf 
J H H_jL ± ill E 

K I J_ iL K I" 

300 INK 2s PRINT AT 11,0;" _E_ 

_E_ _E E_ _E_ J^G_ 

FG FG FG_ FG^ 

310 pETNT PAPER 2; INK 7; AT 0, 

7;s;AT 0,15;hs;AT 0,28;b;" " 

320 PRINT INK 6;AT 20,y;" ABC 

"330 IF f=l THEN PRINT INK 8; 
PAPER 8;AT c,d;" " 

340 IF b=0 THEN GO TO 530 

350 GO SUB 30 

360 LET y=y+(INKEY*="8" AND y<2 
6)-(INKEY$="5" AND y>0) 

370 IF INKEY*="0" AND f=0 THEN 
LET d=y+2: GO SUB 420 
380 IF f = l THEN GO SUB 420 
390 IF -f =0 THEN FOR n=0 TO 3s 
NEXT n 

400 BEEP .0001,60 
410 GO TO 310 

420 LET f = l: PRINT INK 8;AT c, 
d;'MD"s LET cl=c: LET c=c-l: IF c 
=1 THEN LET c=19: LET f=0: LET 
b=b-l: PRINT AT cl,d;" ": RETURN 
430 IF SCREENS <c,d><>" " THEN 
GO TO 460 

440 INK 8: PRINT AT cl,d;" ";AT 
c , d; 'VDJ' 

450 RETURN 

460 LET b=b-l: LET 1=ATTR (c,d) 

: PRINT AT cl ,d;" " 

470 IF 1=5 THEN LET s=s+25 
480 IF 1=3 THEN LET s-s+15 
490 IF 1=4 THEN LET s=s+10 
500 IF 1=2 THEN LET s=s+5 
510 BEEP .005,10 
520 LET c=19: LET f=0: RETURN 
530 FOR n=-20 TO 20 STEP .5: BE 
EP .005,n: BEEP .005,n*2: NEXT n 
540 IF s>hs THEN LET hs=s: PRI 
NT AT 1,0; PAPER 1; INK 7; FLASH 
1;"A NEW HIGH SCORE !!! WELL D 
ONE.": FOR n=0 TO 20: BEEP .01,n 
: NEXT n 

550 FOR n=l TO 200: NEXT n: GO 
TO 190 


KITCHEN 

CAROUSEL 

K NIVES, forks, teacups and 
other items cross the screen on 
their journey from the kitchen. 
Try to score as many points as possible 
with your limited bullet supply by 
shooting the objects as they pass. Use 
keys 5, 8 and 0 to play. 

Kitchen Carousel was written for 
the 48K Spectrum by G Creasey of 
Ashford, Kent. 
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R EPORTS have been circulating 
of sightings of the rare Dumb- 
Dumb bird in north-east Scot¬ 
land. As a keen bird watcher and expert 
photographer you have been summoned 
to take the official pictures. To take a 
photograph press the key corresponding 
to the nest in which the bird appears. If 
you are too slow you will be sacked. 

Bird Watcher was written for the 
16K Spectrum by Graham Creasey of 
Ashford, Kent. 


/2IKV \mr<24i£K 


10 RANDOMIZE : LET hs=0: PAPER 
O: INK 7: BORDER O: CLS 
20 FOR n=USR "a" TO USR "t"+7: 
READ as POKE n,a: NEXT n 
30 DATA 0,O,0,0,127,255,135,23 
9,0,0,0,0,254,255,243,243,255,12 
5,7,7,7,7,7,0,255,190,224,224,22 
4,224,224,0,83,124,247,206,255,2 
19,231,255,37,91,253,127,247 
40 DATA 251,191,219,41,69,187, 
253,119,183,239,247,212,62,253,2 
53,183,187,223,255,127,63,127,1, 
0,0,0,0,231,127,159-, 255,31,0,0,0 
,255,191,127,191,248,0,0,0 

50 DATA 126,124,250,144,0,0,0, 
0,0,0,0,0,0,1,7,0,3,7,15,12,61,2 
52,255,31,240,248,248,124,124,12 
4,252,252,O,3,0,0,0,0,0,0,255,7, 
7,1 , 1 , 1,1,1,248,248,240,224 

60 DATA 192,192,192,192,1,1,1, 
1,1,15,15,15,192,192,192,192,192 
,248,248,248 

70 PRINT AT 0,0; PAPER 2;" B 
IRD WATCHER " 

80 PRINT AT 3,0; INK 6;" REPO 
RTS HAVE STARTED COMING INOF SIG 
HTINGS OF THE RARE DUMB-D 

UMB BIRD IN N.E.SCOTLAND." 

90 PRINT '' INK 5;"AS AN EXPER 
T BIRD WATCHER YOU HAVE BEEN S 


UMMONED TO TAKE PHOTOGRAPHS 

OF THE RARE BIRDS ASTHEY APPEAR 
FROM THEIR NESTS." 

100 PRINT INK 7;"To take a 

photograph, press the number key 
correspond!ng to the nest numbe 
r, but be QUICK !!" 

110 PRINT AT 21,0; PAPER 1;" 
PRESS ANY KEY TO PLAY ": 

PAUSE Os BEEP .05,20: BEEP .05,3 
Os CLS 

120 LET s=Os LET 1=25 
130 DIM b(6) 

140 RESTORE 140s FOR n=l TO 6s 

READ as LET b(n)=as NEXT n: DATA 
3,8,13,18,23,28 
150 FOR n=l TO 100s NEXT n 
160 PRINT AT 0,0; PAPER 2;" 
SCORE= HI= 

170 PRINT AT 17,0; INK 4; BRIGH 
T 1;" EFGH EFGH EFGH EFGH EFGH 
EFGH IJKL IJKL IJKL IJKL IJKL 

IJKL " 

180 PRINT AT 19,0; INK 5;" 1 

2 3 4 5 6 " 

190 PRINT PAPER 2;AT 0,10;s;AT 
0,23;hs 

200 LET a=INT <RND*6>+1 

210 PRINT INK 3;AT 14,b(a)-1;"ft 

-NO" ; AT 15,b (a)-1 ; " PQR "; AT 16,b( 


a) -1; " ST_" 

220 FOR n=l TO 1s IF INKEY*=STR 
a THEN GO TO 250 
230 BEEP .001,40: NEXT n 
240 GO TO 280 

250 PRINT INK 7;AT 4,b(a);"AB" 
;AT 5,b(a); "CD" 

260 FOR n=l TO 50s BEEP .004,n: 
BORDER 2: BORDER 6: BORDER 2: B 
EEP .004,ns BORDER 6: BORDER 2: 
BORDER 6: NEXT n 
.270 PRINT AT 4,b(a);" " ; AT 5,b 

(a);" ";AT 14,b(a)-l;" ";AT 1 

5,b(a)—1;" " ; AT 16,b(a> -1; " 

": BEEP .05,20: BORDER Os LET s= 
s+10: LET 1=1-1: FOR n=l TO 50: 
NEXT n: GO TO 190 
280 FOR n=l TO 200s* NEXT n: BEE 
P .5,-20: PRINT AT 5,0; FLASH 1; 

PAPER 1;" YOU HAVE BEEN SAC 

KED FOR BEING TOO SLOW !! 

I | | •• 

290 FOR n=l TO 200: NEXT n: IF 
s>hs THEN LET hs=s: PRINT AT 8, 
O;"A NEW HIGH SCORE !": FOR n=0 
TO 20: BEEP .005,n: BEEP .005,—n 
: BEEP .002,<RND*20>+30: NEXT n 
300 PRINT #0; PAPER 2; INK 7;" 
PRESS ANY KEY TO PLAY AGAIN 
: PAUSE Os PAUSE Os BEEP .05,20: 
BEEP .05,30: CLS s GO TO 70 
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ROBOT ring master referees the 
fight between you and the com¬ 
puter. You are able to block 
punches thrown by your opponent and 
you can also retreat, kick, punch and 
attack. The keys to use, together with a 
scoreboard and rows of spectators, are 
shown on screen. 

The Fight was written for the 16K 
Spectrum by M J Bradford of Hey- 
wood, Lancs. 


1 CLS 

10 REM *********************** 

11 REM ******VARIABLES******** 

12 REM *********************** 
15 FOR 1=0 TO 159: READ x: F'OK 

E USR "a"-*-! , x: NEXT i 

20 DATA 224,240,224,192,192,22 

4.224.224.240.193.255.128.128.12 

8.128.192.7.15.7.3.3.7.7.7.15.13 
1,255,1,1,1,1,3,224,240,224,192, 
193,255,193,192,192,192,192,160, 
144,136,136,204,230,244,228,196, 
196,252,192,192,103,47,39,35,35, 
63,3,3,3,3,5,9,l7,17,17,51,7,15, 
7,3,131,255,131,3,56,56,56,16,16 
,124,84,84 

30 DATA 214,16,16,40,68,68,68, 
198,0,0,0,0,64,224,255,255,0,0,0 
,O,0,0,129,255,0,O,0,0,2,7,255,2 
55,126,66,66,165,129,189,129,126 

35 DATA 7,6,7,7,7,63,47,47,47, 
39,35,114,2,2,2,14,224,96,224,22 
4,224,252,244,244,244,228,196,78 
,64,64,64,112 

36 GO SUB 5000 

40 LET es=0: LET ms=0: BORDER 
1: PAPER 7 

50 LET m=17: LET e=14 
60 LET goto=0 

3000 REM *********************** 

3001 REM ******YOUR MOVE******** 

3002 REM *********************** 

3010 LET a^= , NK ,, r LET : LET 

c$="K": LET d$="L" 

3020 PRINT AT 9,m; INK l;c* 

3030 PRINT AT 10,m; INK l;d* 

3100 IF RND>.5 THEN LET goto=l: 
GO TO 3500 

3140 IF INKEY$="" THEN GO TO 35 
00 

3150 IF INKEY$<"5" OR INKEY*>"9" 
THEN GO TO 3500 

3200 IF INKEY*<"8" THEN GO TO 3 
300 

3210 PRINT AT 9,m;" " 

3220 PRINT AT 10,m;" " 

3230 LET m=m+(INKEY$="9" AND m<1 
9)-<INKEY$="8") 

3270 GO TO 3330 

3300 IF INKEY*="5" THEN LET c*= 
"H": LET d$="I": BEEP .09,6 


3310 IF INKEY$="6" THEN LET c*= 
"J_": LET d$="I": BEEP .09,8 
3320 IF INKEY$="7" THEN LET c*= 
: LET d : BEEP .09,10 
3330 PRINT AT 9,m; INK l;c* 

3340 PRINT AT 10, m; INK 1 11 l;d$ 

3360 IF goto=l THEN LET goto=0: 
GO TO 3600 

3407 REM *********************** 

3408 REM ******COMPUTERS MOVE*** 

3409 REM *********************** 
3500 IF RNDC.5 THEN. GO TO 3600 
3520 LET 2=INT (RND*9>+1 

3530 IF z<5 THEN LET a-$:= ,, _A": LE 

T bS^'B^: BEEP .1,10 

3540 IF z >4 AND z<6 THEN LET at- 


= "J3": LET b*='T": BEEP .1,6 
3550 IF z =6 THEN PRINT AT 9,e;" 

"5 AT 10,e;" ": LET e=e+l 
3560 IF z =7 THEN PRINT AT 9,e;" 

" ;AT lG,e; " '•: LET e=e-l: IF e= 
12 THEM LET e=13 

3570 IF z =8 THEM LET a*= u JE" : LE 
T b:?T= r BEEP .1,8 
3580 IF z =9 THEN LET a^-JK": LE 
T b:*= ,, LJ , 

3590 PRINT AT 9,e; INK 2;a* 

3591 PRINT AT 10,e; INK 2;b$ 

3592 IF goto=l THEN GO TO 3100 

3597 REM *********************** 

3598 REM **WALK INTO EACH OTHER* 

3599 REM *********************** 
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3600 IF e>=m THEM PRINT AT 9,e; 
" "; AT 10,12; INK 2: 1 2 3 * * * * * * * 11 MN" ; INK 

l?" N° BEEP .5,5: BEEP .5,5: 

BEEP .09,6: BEEP .09,7: BEEP .0 
9,6: BEEP .09,5: PRINT AT 10,13; 
" GO TO 50 

3617 REM *********************** 

3618 REM *****REF MOVEMENT****** 

3619 REM *********************** 

3620 IF RNDC.5 THEN GO TO 3650 
3630 PRINT AT 6,13; INK 4;" QS" 
;AT 7,13; INK 4;" RT" 

3640 GO TO 4000 

3650 PRINT AT 6,13; INK 4;"QS " 

; AT 7,13; INK 4; "_RT " 

4000 REM *********************** 

4001 REM ******SCORE************ 

4002 REM *********************** 
4010 IF m<>e+l OR a$="J3" THEN G 
0 TO 3000 

4030 IF a$="KJ’ THEN GO TO 4100 
4040 IF c$< >"K_" THEN GO TO 3000 
4050 LET es=es+l 


4060 PRINT AT 9,e-1; INK 2; "_K " 

? AT 10,e-1; INK 2; ; INK 1; "NO 

4070 BEEP .3,5: BEEP .3,5: BEEP 
.09,5: BEEP .09,6: BEEP .09,5: B 
EEP .09,4 

4080 PRINT AT 9,e-1;" ";AT 10,e- 
1 ; " " 

4090 GO TO 4200 

4100 IF c$< AND d$<>"_D" THEN 

GO TO 3000 
4110 LET ms=ms+l 

4120 PRINT AT 9,e; INK 1;" K";AT 
10,e-1; INK 2;';MN"; INK 1;"L" 

4130 BEEP .3,10: BEEP .3,1O: BEE 
P .09,11: BEEP .09,12: BEEP .09, 
10: BEEP .09,13 

4140 PRINT AT 9,e+l;" ";AT 10,e- 
1 ; " 

4200 PRINT AT 1,8;" <igB) SCORE="; 
es;AT 1,17;"SCORE=";ms;"(ig8)" 

4500 REM *********************** 

4501 REM ******WIN or LOSE****** 

4502 REM *********************** 
4510 IF ms<9 THEN GO TO 4550 
4515 CLS 

4520 FOR i=0 TO 7: FOR o=7 TO O 

STEP -1 

4525 BORDER o 

4530 PRINT AT 7,3; INK i; "( 4»sp 
:ig8:4*sp:ig8:3*sp:ig8:sp:ig8:sp 

7~i'g8: 3*sp: ig8:13*sp:igO:sp:ig6:3 

*sp : i g8 : 3*sp : i g5 : sp : :i g8 : sp : 2* i g8 

:^2*sp : i g8: 12*sp : i g8: 3*sp : i g8: 2 * s 

p :i g8:3*sp:ig&:sp:1g8:sp:ig8:sp: 

ig8:sp:ig8:12*sp:5*igB:2*sp: i q8: 

3*sp:ig8:sp:ig8:sp:ig8:2»sp:2»ig 
8: 12*sp : i g8: 3*sp : i g.8: 2*sp : i g8: s p 
: igS:sp:ig8:sp:ig8:sp:ig8:3*sp7i 

g8:12*sp:ig8:3*sp:ig8:2*sp:5*ig8 

:sp:ig8:sp:ig8:3*sp:igB)" 

4540 BEEP o/l000,1: NEXV o: NEXT 
i: BEEP .09,15: BEEP .09,15: BE 


EP .1,18: CLS : GO SUB 5000: GO 
TO 40 

4550 IF es<9 THEN GO TO 50 
4560 CLS : PRINT AT 7,0;"THE COM 
PUTER ( ig8:4*sp:ig8:sp:5*ig8:sp: 
ig8:4*sp:ig8:13*sp:ig8:4*sp: i g8: 


sp:lg8:3*sp:igO:sp:2*ig8 

3*sp: i g 

8:13*sp:ig8:4*sp:ig8:sp: 

ig8:3*sp 

: igthsp: ig8:sp: i g&: 2*sp : 

ig8:13*s 

p:ig8:4*sp:ig8:sp:ig8:3*sp:ig8:s 

p:ig8:2*sp:ig8:sp:igB:13 

*sp:ig8: 

4*sp:ig8:sp:ig8:3*sp:ig8 

:sp:igB: 

3*sp:2*ig8:13*sp:ig8:sp: 

ig8:2*sp 

:ig8:sp:ig8:3*sp:igS:sp: 

igS:4*sp 

:igU:13*sp:6*ig8:sp:5*ig8:sp:ig8 


:4*sp:igB)" 

4570 BEEP .7,7: BEEP -7,8: BEEP 
.7,7: BEEP .6,6: BEEP .6,7: BEEP 
.6,3: BEEP 1.5,-2: CLS : GO TO 
40 

4997 REM *********************** 

4998 REM *** FANS,SCORE,ect..*** 

4999 REM *********************** 

5000 FOR i=0 TO 16: FOR o=0 TO 9 
: PRINT AT i,o; INK 0; PAPER INT 

(RND*5) +2; "_P " ; AT i , o+22; " P." : NE 
XT o: NEXT i 

5001 FOR i=15 TO 16: FOR o=10 TO 
21: PRINT AT i,o; INK 0; PAPER 

INT (RND*5) +2; "_PJ': NEXT o: NEXT 
i 

5010 PRINT AT 1,8;"<ig8>SC0RE=0 
SCQRE=0'(ig8) " 

5020 FOR i=8 TO 24: PRINT AT 0,1 
;" ( ig8 )";AT 2,i;"( ig8 )": NEXT i 
5030 PLOT 128,140: DRAW 37,0: DR 
AW 0,-75: DRAW -75,0: DRAW 0,75: 
DRAW 38,0 

5040 PRINT AT 17,0;"( 33»ig8 )'5= 
BLOCK( 2*ig8) '6'=PUNCH( 2*ig8 )'7'= 
KICK <34*ig8> '8'=LEFT(13*ig8) '9' = 
RIGHT <33*ig8)" 

5050 RETURN 


1 LET M=0 

2 FOR N=0 TO 7: READ A: POKE 
USR "A"+N,A: NEXT N: DATA 56,56, 
146,254,16,124,68,198 

3 LET S=0: LET L=3 

5 BORDER 7: PAPER 7: INK 0: F 
OR N=0 TO 21: PRINT AT N,0; FLAS 
H 1;"*********STOP THE TAPE***** 
*****••: NEXT N: PAUSE 50 

10 FOR n=0 TO 21: FOR b=0 TO 3 
1: LET i=INT (RND*6)+1: INK i: P 
PINT AT n,b;"*": NEXT b: NEXT n 
20 INK O 
30 BORDER O 

40 PAUSE 50: FLASH 1: INK O: P 
APER 6: FOR N=0 TO 21: PRINT AT 

N , 0 ; "*********** HI T S T A R * * * * * * * * 
*****•’; NEXT N 
50 FLASH 0 
60 PAUSE 100: CLS 
70 PRINT "*********** INSTRUCTI 
ONS*********" 

80 PRINT : PRINT "YOU HAVE TO 

JUMP UP AT THE STAR.WHEN IT FL 

YS OVER YOUR HEAD.IF YOU JUMP 

WHEN THE STAR IS.NOT OVER YOUR 

HEAD YOU WILL.HIT THE LASER B 

EAM AND"'"WILL BE DEAD..PRESS 

0 TO JUMP"'"PRESS ANY KEY TO STA 
RT.": PAUSE 0: CLS 

85 CLS : PRINT "ENTER DIFFICUL 

TY 1 TO 9.<1=DIFFICULT 9=EASY> 

" : I NF'UT P 

87 LET S=0: LET L=3 

89 CLS 

90 FOR X=0 TO 20: INK INT (RND 
*4)+1: PRINT AT INT <RND*16)+1,I 
NT (RND*31>+1;"*": INK 0: NEXT X 
: LET M=0: PRINT AT 0,21;"SC0RE= 
" ;S;"*": PLOT 0,40: DRAW 255,0 

100 PLOT 0,0: DRAW 255,0 

111 PLOT 0,40: DRAW 255,0: PLOT 

0,0: DRAW 255,0 

120 PRINT AT 21,16; "A;’ 

130 FOR R=0 TO 31 
140 PRINT AT 16,R;"*" 


150 PAUSE P: IF INKEY$="0" AND 
R=16 THEN LET S=S+1: IF INKEY$= 
"0" AND R=16 THEN GO TO 5000 
160 IF INKEY*="0" AND R<>16 THE 
N LET M=1: IF INKEY$="0" AND R< 
>16 THEN GO TO 5000 
170 PRINT AT 16,R;" ": PLOT 0,4 
0: DRAW 255,0: NEXT R 

180 GO TO 111 

5000 FOR N=21 TO 16 STEP -1: PRI 
NT AT N,16;"&": BEEP .01,N 
5010 PAUSE 5: PRINT AT N,16;" ": 
NEXT N 

5015 IF M=1 THEN PRINT AT 16,16 
; INK 2;"A": IF M=1 THEN GO SUB 
8050 

5020 IF M=1 THEN CLS : IF M=1 T 
HEN GO TO 8000 

5030 IF M=0 THEN LET L=L-1: IF 
M=0 THEN GO SUB 9050: IF M=0 TH 
EN PRINT "HIT STAR*.*.*.*": PAU 
SE 50: CLS : GO TO 90 
7000 STOP 

8000 PRINT "SORRY!!!!!!.YOU HI 

T THE LASER BEAM.YOUR SCORE WA 

S ";S;"*": PRINT "PRESS ANY KEY 
FOR ANOTHER GAME": PAUSE Os CLS 
: GO TO 85: STOP 

8050 BEEP 1,-12: BEEP .6,-12: BE 
EP .3,-12: BEEP .9,-12: BEEP .6, 
-9: BEEP .3,-10: BEEP .57,-10: B 
EEP .3,-12: BEEP .6,-12 
8060 BEEP .4,-13: BEEP 1,-12 
8070 FOR N=16 TO 21: PRINT AT N, 
16; "A_": BEEP .01, Ns PAUSE 1: PR I 
NT AT N,16;" ": NEXT N: RETURN 
9000 IF M=1 THEN LET L=L-1: GO 
TO 90 

9050 FOR N=16 TO 21: PRINT AT N, 
16;"A": PRINT AT N-1,16;"*": BEE 
P .01,N: PAUSE 5: PRINT'AT N,16; 

" ": PRINT AT N-1,16;" ": NEXT N 
: CLS : RETURN 

9999 PRINT "HIT STAR IS SAVING": 
SAVE "HIT STAR" LINE 1 



HEAD FOR 
THE STARS 

W AIT until a star is above your 
head and then jump at it. If 
you hit the beam instead of 
the star you will lose the game. See how 
many stars you can hit before you knock 
your head on the beam. 

Head for the Stars was written for 
the 16K Spectrum by Emlyn Howell, 
aged 9, of Brighton, Sussex. 
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THIS 

MONTH 

IN 


• COMPETITION 

• Sinclair Research are providing a great first prize 
for our easy-to-enter competition. Will it be a 
Microdrive, an Interface Two or a QL computer? 
Read Sinclair Programs to find out. Second prize will 
be a light pen and new keyboard, third prize will be 
a joystick and Spectrum interface. A hundred 
runners-up will win software from any one of ten top 
companies. 

• PLUS Thirty new program listings for the Spectrum and ZX-81, including a full- 
scale professional program for the ZX-81. 

• PLUS Hard-hitting reviews of all the latest programs. 

• PLUS A fresh look at some of the adventure games on the market: a section 
designed especially for beginners: and the next part of our programming course. 




EXPRESS DELIVERY - 
ORDER NOW 


♦ \/ It is impossible to 

* ' T tell you everything 

about the 50 games on 
CASSETTE 50 but they include 
many types such as maze, arcade, 


Qz. commodore &\ 


^50 GAMES ON ONE CASSETTE 

. DRAGON OOBaib Spectrum ^cippkz ATARI OR1C-1 ZX81 . VK» 20 


Please send me by return of post. Cassette 50 at £9 95 
per tape. I enclose a cheque/postal order for 


made payable to 
Cascade Games Ltd. 


missile, tactical and logic games, 
to suit most tastes in computer 
game playing. 


Please debit T 

my B No.L 


CASSETTE 50 will appeal to 
people of all ages and the games 
will provide many hours of 
entertainment for all the family at 
a fraction of the cost of other 
computer games. •_ 


Post Code 


Country 


I Dealers St Stockists enquiries welcome. 


SPECTRUM P ORIC-1 P ZX 81 PI VIC 20 P APPLE P 
COMMODORE 64 LJ DRAGON [J ATARI LJ BBC A/B Q [3 


cascade 

m p||a 


O 


Cascade Games Ltd., 

Suite 4, 1-3 Haywra Crescent, Harrogate, 
North Yorkshire, HG1 5BG. England. 
Telephone: (0423) 504526. 


SP/10/84 
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To: MicroSpeech Offer, P.O. Box 1, Gateshead, Tyne & Wear, NE8 1AJ 

Please Supply. MIcroSpeech unit(s) at £29.95 each incl. VAT & P & P 

.MicroSlot unit(s) at £14.95 each incl. VAT & P & P 

Name (please print) . 

Address (please print) . 04 

tn 

. Postcode . ^ 

I enclose a cheque/PO payable to 'MicroSpeech Offer' value £. 

or debit my Access/BardayCard No ( I I I I I I I j I I M M II 

Cardholder Signature.....,. 

Credit Card Hotline 091 - 482 4683 Please allow 28 days for delivery Offer valid UK only 


NAME:. 

ADDRESS: 


READER'S ENQUIRY SERVICE 

If you would like any more 
information from the following 
advertisers in this issue, just tick 
the appropriate box below. 


Domark 

□ 

Cheetah 

□ 

Prism 

□ 

Filesixty 

□ 

AGF 

□ 

D.K. Tronics 

□ 

Ram 

□ 

Software Farm 

□ 

f 

Artie 

□ 


Currah Computer Components D 


^Speech, /xSlot and /xSource are trademarks of Currah Computor. Components Ltd. 
ZX, ZX Spectrum and ZX Interface 1 are trademarks of Sinclair Research Ltd. 




The CURRAH /^SPEECH is ready to talk immediately on 
power-up, has an infinite vocabulary and outputs speech 
and ZX Spectrum sound through your TV speaker. There 
is no software to load with /liSPEECH — sophisticated 
Gate Array technology means you can just plug in and 
start constructing words and sentences like this: 

LET SS = "sp(ee)k (nn)(oo) (ee)vil" will say "speak no 
evil"! Further commands control the "voicing" of keys as 
they are pressed, and an intonation facility allows you to 
add expression to the speech. 

^.SPEECH is fully compatible with ZX Interface 1 and 
may be used with the CURRAH /aSLOT Expandable 
Motherboard, allowing easy expansion of your ZX 
system. /^SPEECH and /aSLOT will also be compatible 
with the CURRAH /laSOURCE unit when it arrives later 
this year, allowing you to write Assembler and FORTH 
statements directly into your BASIC programs! 

Top selling games like ULTIMATE'S Lunar Jetman 
feature /aSPEECH voice output — watch out for other 
titles from Bug-Byte, CDS, Ocean, Quicksilva and PSS. 




^SPEECH is available from COMET, W.H. SMITH, 
WOOLWORTHS, GREENS, <3 BOOTS, JOHN MENZIES, 
SPECTRUM STORES and good dealers nationwide — 
or use the form to order the CURRAH /^SPEECH — 
winner of the CTA 'Product of the Year' award 1984. 


COMPETITION ENTRY FORM 

LIST YOUR ANSWERS (LETTERS ONLY) 

1 . 4 . 

2 . 5. 

3 .6. 


COMPLETE THE SENTENCE BELOW 
1.1 WOULD LIKE TO WIN A SINCLAIR QL BECAUSE 


6. WHAT IS THE APPROX. VALUE OF ALL COMPUTER 
HARDWARE THAT YOU OWN?. 


2. WHAT IS YOUR AGE? 


YEARS OLD. 


3. WHICH MAGAZINE, OTHER THAN SINCLAIR PROGRAMS, 
DO YOU READ MOST FREQUENTLY?. 


4. HOW MANY PRE-RECORDED COMPUTER PROGRAMS HAVE 
YOU BOUGHT IN THE LAST 12 MONTHS?. 


5. WHERE HAVE YOU BOUGHT THE MOST SOFTWARE? 


TOTAL VALUE £ 


























































The CURRAH //SPEECH is ready to talk immediately on 
power-up, has an infinite vocabulary and outputs speech 
and ZX Spectrum sound through your TV speaker. There 
is no software to load with //SPEECH — sophisticated 
Gate Array technology means you can just plug in and 
start constructing words and sentences like this: 

LET SS = "sp(ee)k (nn)(oo) (ee)vil" will say "speak no 
evil"! Further commands control the "voicing" of keys as 
they are pressed, and an intonation facility allows you to 
add expression to the speech. 

//.SPEECH is fully compatible with ZX Interface 1 and 
may be used with the CURRAH //SLOT Expandable 
Motherboard, allowing easy expansion of your ZX 
system. //SPEECH and //SLOT will also be compatible 
with the CURRAH //SOURCE unit when it arrives later 
this year, allowing you to write Assembler and FORTH 
statements directly into your BASIC programs! 

Top selling games like ULTIMATE'S Lunar Jetman 
feature //SPEECH voice output — watch out for other 
titles from Bug-Byte, CDS, Ocean, Quicksilva and PSS. 


//Speech, //Slot and //Source are trademarks of Currah Computer. Components Ltd. 
ZX, ZX Spectrum and ZX Interface 1 are trademarks of Sinclair Research Ltd. 


//SPEECH is available from if COMET, W.H. SMITH, 
WOOLWORTHS, GREENS, 4 BOOTS, JOHN MENZIES, 
SPECTRUM STORES and good dealers nationwide — 
or use the form to order the CURRAH //SPEECH — 
winner of the CTA 'Product of the Year' award 1984. 


To: MlcroSpeech Offer, P.O. Box 1, Gateshead, Tyne & Wear, NEB 1AJ 

Please Supply. MlcroSpeech unit(s) at £29.95 each incl. VAT & P & P 

.MicroSlot unit(s) at £14.95 each incl. VAT & P & P 

Name (please print) ...... 

Address (please print) . 

. Postcode . 

I enclose a cheque/PO payable to 'MicroSpeech Offer' value £. 

or debit my Access/BarclayCard No ) M 1 I I M I 1 I I 1 I M 
Cardholder Signature. 


Credit Card Hotline 091 - 482 4683 


Please allow 28 days for delivery Offer valid UK only 








































WORLD CUP 


’AMAZING ANIMATED 
GRAPHICS' 
SPECTRUM 48K £6.95 
WORLD CUP SOCCER 


ARTIC COMPUTING 

Main Street. Brandesburton. Driffield YC 

Cheques and PO s payable to Artie Computing 
Deal er enquiries welcome 
Access and Barclaycard. welcome. 

TEL: 0401-43553 

WARNING: These programs are sotd according 
RTIC COMPUTING LTD’s terms of trade c 

sale 


Send S.A.E. (9in. x 6in ) lor FREE catalogue of 
our wide range ol programs. 


Name 


Address 






To: Artie Computing Ltd, Main Street 
Brandesburton, Driffield Y025 8RL 

Please supply 

‘Cheque for total amount enclosed £ 


Access/Barclaycard No. 


80-9 


Please delete or complete as applicable 



























































THIS 
MONTI 
IN 


• COMPETITI 

• Sinclair Ret 
for our easy-tc 
Microdrive, a] 
Read Sinclair . 
be a light pen 
a joystick and 
runners-up wL 
companies. 


SINCLAIR PROGRAMS, 

67 CLERKENWELL ROAD, 
LONDON EC1R 5BH. 


VV Ul kIVA IVV UA V MAh J WAkW W* 


AFFIX 

STAMP 

HERE 


• PLUS Thirty new program listings for the Spectrum and ZX-81, including a full- 
scale professional program for the ZX-81. 

• PLUS Hard-hitting reviews of all the latest programs. 

• PLUS A fresh look at some of the adventure games on the market: a section 
designed especially for beginners: and the next part of our programming course. 



^50 GAMES ON ONE CASSETTE 

*.DRAGON L 13 CO Bab Spectrum f^cippkz ATARI OR1C-1 ZXB1 VIC* 0 ( 1 ) 


. - w It is impossible to 
* ' V tell you everything 

about the 50 games on 
CASSETTE 50 but they include 
many types such as maze, arcade, 
missile, tactical and logic games, 
to suit most tastes in computer 
game playing. 

CASSETTE 50 will appeal to 
people of all ages and the games 
will provide many hours of 
entertainment for all the family at 
a fraction of the cost of other 
computer games. •_ 


EXPRESS DELIVERY- 
ORDER NOW 


Please send me by return of post. Cassette 50 at £9 95 
per tape. I enclose a cheque/postal order for 


£ 

made payable to 

Cascade Games Ltd. 

Please debit 1 
my No.| 

■ i i i i_i_i_i—i—i— 1 


SPECTRUM 
COMMODORE 64 


APPLE 


Post Code 


|^Dealers St Stockists enquiries welcome. 


coscode 


B oric-iF] zxsir] vie 20 □ 
dragon[J atariLj bbc a/bLJ 

Cascade Games Ltd., 

Suite 4, 1-3 Haywra Crescent, Harrogate, 
North Yorkshire. HG1 5BG. England. 
Telephone: (0423) 504526. SP/10/84 
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READER'S ENQUIRY SERVICE 

jf you would like any more 
information from the following 
advertisers in this issue, just tick 
the appropriate box below. 


Domark 

Cheetah 

Prism 

Filesixty 

AGF 

D.K. Tronics 
Ram 

Software Farm 
Artie 

Currah Computer Components 



The CURRAH //.SPEECH is ready to talk immediately on 
power-up, has an infinite vocabulary and outputs speech 
and ZX Spectrum sound through your TV speaker. There 
is no software to load with //.SPEECH — sophisticated 
Gate Array technology means you can just plug in and 
start constructing words and sentences like this: 

LETSS = "sp(ee)k (nn)(oo) (ee)vil" will say "speak no 
evil"! Further commands control the "voicing" of keys as 
they are pressed, and an intonation facility allows you to 
add expression to the speech. 

//SPEECH is fully compatible with ZX Interface 1 and 
may be used with the CURRAH //SLOT Expandable 
Motherboard, allowing easy expansion of your ZX 
system. //SPEECH and //SLOT will also be compatible 
with the CURRAH //SOURCE unit when it arrives later 
this year, allowing you to write Assembler and FORTH 
statements directly into your BASIC programs! 

Top selling games like ULTIMATE'S Lunar Jetman 
feature //SPEECH voice output — watch out for other 
titles from Bug-Byte, CDS, Ocean, Quicksilva and PSS. 


//Speech, //Slot and //Source are trademarks of Currah Computor, Components Ltd. 
ZX, ZX Spectrum and ZX Interface 1 are trademarks of Sinclair Research Ltd. 


//SPEECH is available from COMET, W.H. SMITH, 
WOOLWORTHS, GREENS, T BOOTS, JOHN MENZIES, 
SPECTRUM STORES and good dealers nationwide — 
or use the form to order the CURRAH //SPEECH — 
winner of the CTA 'Product of the Year' award 1984. 



To: MlcroSpeech Offer, P.O. Box 1, Gateshead, Tyne & Wear, NE8 1AJ 

Please Supply. MlcroSpeech unit(s) at £29.95 each incl. VAT & P & P 

.MlcroSlot unit(s) at £14.95 each incl. VAT & P & P 

Name (please print) ..... 

Address (please print) . 

. Postcode . 

I enclose a cheque/PO payable to 'MicroSpeech Offer' value £. 

or debit my Access/BarclayCard No. | j 1 I M 11 I 1 I I II 1 i 1 
Cardholder Signature... 

Credit Card Hotline 091 - 482 4683 Please allow 28 days for delivery Offer valid UK only 





















































WORLD CUP 



Send S.A.E. (9in. x 6in ) for FREE catalogue of 
our wide range of programs. 






















































